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Getting Started 



Connect an RS-232 terminal to the cable coming from J1 of the CPU support card. The 
terminal should be set for full duplex at one of the following rates: 19200, 9600, 1200, 300, 150, or 
110 baud. The software-selected baud rate feature of the CPU Support card is used to 
automatically determine the baud rate of the terminal. By hitting the carriage return no more than 
four times, the sign-on message should appear. If it does not, reset the computer and try again. If 
it still does not sign on, check all connections carefully. 

If Sense Switch is a one (position 1 of S2 is closed), then the monitor will NOT sign on 
after baud rate selection but instead will automatically boot the disk. This is equivalent to the Boot 
command with no parameters. 

Directly below the sign-on message there will be a greater-than symbol, ">". This is the 
Monitor prompt, and indicates that the Monitor is ready to accept a command. The input buffer 
allows commands of up to 80 characters in length. While typing the command line, <backspace> 
and <rubout> or <delete> may be used back up to correct a mistake, while "®" cancels the line and 
re-issues the prompt. Typing <carriage return> either causes the command to be executed or an 
error to be reported. Most errors are syntax errors, and an arrow followed by the word "Error" 
will appear under the first bad character. If an error occurs, no part of the command is executed 
(except during boot or flag replacement - see Boot and Register commands). 

Monitor commands are available to display, alter and search memory; to do inputs and 
outputs; to boot the disk; and to aid in debugging 8086 programs. The debugging commands allow 
the user to execute a program in a controlled manner, observing its behavior. This controlled 
execution may be done either by single-stepping or through execution with breakpoints. 

Single -stepping is done with the Monitor's Trace command. By using 8086 hardware trace 
mode, a single instruction can be executed, and the resulting effects on the registers or memory 
displayed. Even ROM may be traced, and every instruction is traced correctly (unlike 8080 or Z80 
debuggers). 

Execution with breakpoints (Go command) allows the user to quickly execute previously 
tested program portions but stops program execution if a breakpoint is reached. Breakpoints 
require more care than single-stepping since they can only be used in RAM at the address of the 
first byte of an 8086 opcode. 

Both methods of "controlled execution" allow the user to modify or examine CPU registers. 
A "register save area" is maintained in memory: just before execution, all registers are set with 
values from this area; and when control is returned to the monitor, all registers are saved back in 
this area. The Register command allows this area to be displayed or modified. 

Execution of any command may be aborted by typing Control-C. Typing Control-S during 
output will cause the display to pause so it may be read before scrolling away; any key (except 
Control-C) may be typed to continue. 

If a user program is executing as a result of a Boot or Go command and interrupts are 
enabled, then the console may interrupt the program and return control to the Monitor. Typing any 
key will cause the interrupt, save program status, and print a register dump; except that Control-C 
will inhibit the register dump. Note that complete program status is always saved, and execution 
may be continued with a Go or Trace command. 

The Monitor requires .5K of memory at address zero. Specifically, interrupt vectors are kept 
at locations 4-7, 0CH-0FH, and 64H-67H, while scratch pad ram, input buffer, and stack use less 
than 256 bytes beginning at 100H. User programs must not modify these locations if the Monitor is 
to be used for debugging. 
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Parameters 

All commands of the Monitor accept one or more parameters on the line following the 
command letter. These parameters MAY be separated from each other and the command letter by 
spaces or commas, but one these delimiters is REQUIRED only to separate consecutive hex values. 
Most parameters are one of the following types: 

<BYTE>, <HEX4>, <ADDRESS> - A hexadecimal number with no more than 2, 4, or 5 digits, 
respectively. Thus, <BYTE> becomes an 8-bit value, <HEX4> a 16-bit value, and <ADDRESS> a 
20-bit value. If too many digits are entered or a non-hex character is typed, the error arrow will 
point to the mistake. Hex A -F must be in upper case. 

<RANGE> - A <RANGE> is either <ADDRESS> <ADDRESS> or <ADDRESS> L <HEX4>. The 
first form specifies the first and last addresses affected by the command. The second form specifies 
a starting address and a length. For either form, the maximum length (first address - last address + 
1) cannot exceed 10000H, and this limit may be as low as 0FFF1H due to limitations of working 
within a segment. (Specifically, [starting address modulo 16] + length must be <= 10000H.) An "RG 
Error" results if the length is too large. To specif iy a length of 10000H with only four digits, use a 
length of zero. Note that the "L" in this form must be upper case. 

<LIST> - This is always the last parameter on a line and may extend to the end of the input 
buffer. It is actually a series of one or more parameters, each of which is either a <BYTE> or a 
<STRING>. 

A <STRING> is any number of characters (except control characters) enclosed by either 
single (') or double (") quotes. Since the opening and closing quotes must be the same, the other 
type may appear in the string freely. If the same quote as opened the string needs to appear within 
it, it must be given as two adjacent quotes. The ASCII values of the characters in the string are 
used as a list of bytes. 



Commands 

A command is executed by typing the first letter of its name (upper case only) followed by 
any parameters. If the first letter on the line is not recognized as a command, the error arrow will 
point to it. Commands are listed below in alphabetical order, with the forms of all parameters 
shown. 



B 

B <ADDRESS> . . . <ADDRESS> 

Boot - Loads the first sector of track of the disk into memory starting at 200H. Up to ten 
5-digit addresses may be specified; too many will cause a "BP Error". After the sector is loaded, 
breakpoints will be set at these locations. Then all registers will be set from the register save area, 
except that the Code Segment will be set to zero, and the Instruction Pointer will be set to 200H - 
thus a jump will be made to 200H. The user stack pointer MUST be valid for this command to work. 
See Go command for more information. 

This command works in three steps. First, the disk sector is loaded. Next, the Code Segment 
and Instruction Pointer are set in the register save area. Finally, a Go command is executed. The 
result is that an error in a breakpoint address will not be found until AFTER the sector is loaded 
and the register save area changed. Thus it is not necessary to use another Boot command to 
correct the error; a Go command with the corrected breakpoints will do. 



The example below shows how Boot can help test an experimental 8086 program. The 
program to be tested fits into one 128-byte sector and has been placed on track 0, sector 1 of a 
disk. The program is loaded with the Boot command but execution does not begin because a 
breakpoint is set at 200H, the first byte of loaded program. Before testing, the program is moved 
to 400H, just above the interrupt table, and CS and IP are adjusted. 



SCP 8086 


Monitor 


1.4 






>B200 










AX==0000 


BX=0000 


CX== 


=0000 


DX=0000 


DS=0040 


ES=0040 


88= 


=0040 


CS=0000 


> M 200 I 


_80 400 








>RCS 










CS 0000 










M0 










>R IP 










IP 0200 










to 










>R 










AX=0000 


BX=0000 


CX= 


=0000 


dx=oooo 


DS=0040 


ES=0040 


ss-- 


=0040 


CS-0040 



sp=ocoo bp=oooo si=oooo n:c=oooo 

IP=0200 NV UP EI PL NZ NA PO NC 



8P=0C00 BP=0000 81=0000 DI=O00O 
IPaOOOO HV UP EI PL NZ NA PO NC 



D <ADDRESS> 
D<RANGE> 

Dump - Displays memory contents in hex and ASCII. If only a starting address is specified, 
80H bytes are dumped; otherwise the specified range is displayed. To help pinpoint addresses, each 
line (except possibly the first) begins on a 16-byte boundary, and each 8-byte boundary is marked 
with a "-". Non -printing characters are shown as a "." in the ASCII dump. 



>D400 


L29 






























00400 


FF 


FB 


FF 


FF 


F7 


7F 


FF 


FE" 


-FF 


FE 


7F 


FF 


FF 


FF 


FF 


FF 


00410 


nn 


FB 


DF 


FF 


CF 


FF 


FE 


DF~ 


-FF 


FI- 


IF 


FB 


FB 


FD 


FF 


F7 


00420 


BF 


FF 


BF 


FF 


BF 


BF 


6F 


FF- 


-FF 
















>D445 


463 






























00445 


FF 


BF 


7F- 


•F9 


FF 


7E 


FF 


FE 


FF 


FE 


FF 












00450 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


DF- 


-FF 


D7 


FF 


FF 


FF 


FF 


FF 


FF 


00460 


9F 


FF 


FA 


FF 


























>D80 


































00080 


FF 


BF 


FF 


FF 


BF 


FF 


FF 


FF- 


-F5 


FF 


FF 


FD 


FF 


F5 


FF 


7F 


00090 


CE 


FF 


FF 


FB 


FF 


FB 


FF 


FF- 


-7F 


FF 


FE 


FA 


FD 


FA 


FF 


FB 


O00A0 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF- 


-FF 


FF 


FI- 


FF 


FF 


FF 


DF 


DF 


000B0 


FF 


FF 


FB 


BF 


FF 


FF 


5F 


EF- 


-FF 


FF 


FA 


FF 


FF 


DF 


F7 


FD 


oooco 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF- 


-7F 


FF 


FF 


FF 


FF 


E6 


FF 


FF 


000D0 


FF 


BF 


FI- 


FF 


FF 


DC 


FB 


7F . 


-FE 


FF 


FF 


FF 


FF 


DB 


ED 


FF 


OOOEO 


FF 


FF 


FE 


FI- 


FB 


FF 


FF 


FF- 


-FF 


FF 


FF 


FF 


FF 


FF 


5F 


FF 


000F0 


DF 


F7 


FF 


DE 


FF 


FF 


FI- 


BB 


-BF 


BF 


F9 


FB 


DF 


FF 


DF 


DF 



♦ 'C..W.4.* ♦♦ + ♦♦♦ 

? . ? ♦ ??o . . 






.„♦♦__»♦♦ U ♦».}'« u ♦ ♦ 



♦ ♦■<:?. . „o. .2 w> 

♦ ♦#♦. ♦♦♦♦♦♦**! ** 

♦ „♦ ♦ .\-C.". ♦ ♦ ♦ Cm. 

♦ »♦*•{.♦♦♦.♦♦.♦♦ — ♦ 

_w«".. .-??«•€_. - 



E <ADDRESS> <LIST> 
E <ADDRESS> 

Enter - In the first form, the list of bytes is entered at the specified address, with the 
command being executed and completed upon hitting <carriage return>. If an error occurs, NO 
locations are changed. 

The second form puts the Monitor into "Enter Mode", starting at the specified address. After 
hitting <carriage return>, the address and its current contents will be displayed. The user now has 
several options: 

1) Replace the displayed value with a new value. Simply type in the new value in hex, using 
<backspace> or <delete> to correct mistakes. If an illegal hex digit is typed or more than two 
digits are typed, the bell will sound and the character will not be echoed. After entering the new 
value, type either <space>, "-", or <carriage return>, as defined below. 

2) Type <space> to display and possibly replace the next memory location. Every 8-byte 
boundary will start a new line with the current address. 

3) Type "-" to backup to the preceding memory location. This will always start a new line 
with the address. The "-" will not be echoed. 

4) Type <carriage return> to terminate the command. 



00 * ♦ ♦ Test ♦ ♦ ♦ .♦(?♦♦ 



>E500 2Av9*t 


i 'Test'rO 




>D 500 L10 






00500 24 09 


OA 54 65 73 74 


oo~o< 


>E508 






00508 00* 






00507 00, 






00506 74. 


00.49 




00508 00. 4E 


20.47 00.0 


00.0 


005:1.0 60. 


0.1. 01.76 


00. 


>D500 513 






00500 24 09 


OA 54 65 73 74 


49.-4 


00510 60 01 


76 00 





00.0 40.0 01.0 00. 



47 00 00 00 00 00 00 *. .TestlNG. ♦ . . . . 

s .v. 



F <RANGE> <LIST> 

Fill - The specified range is filled with the values in the list. If the list is larger than the range, 
not all values will be used; if the range is larger, the list will be repeated as many times as necessary 
to fill it. All memory in <RANGE> must be valid for this command to work properly. If bad or 
non-existent memory is encountered, the error will be propagated into all succeeding locations. 

>F400 L28 "Help" A D 

>D400 L30 

00400 48 65 6C 70 OA 00 48 65-6C 70 OA OD 48 65 6C 70 Help . .Help . .Help 

00410 OA OD 48 65 6C 70 OA OD-48 65 6C 70 OA OD 48 65 . .Help. .Help. .He 

00420 6C 70 OA OD 48 65 6C 70-FF 7F FF FF FF FF F7 FF 1p. .Help. . ♦ . ♦ .w. 



G <ADDRESS> . . . <ADDRESS> 

Go - Sets all registers from the register save area. Since this includes the Code Segment and 
Instruction Pointer, this implies a jump to the program under test. 

This command allows setting up ten breakpoints. Attempting to set more than ten will cause 
a "BP Error". Breakpoints may be set only at an address containing the first byte of an 8086 
opcode. A breakpoint is set by placing an interrupt opcode (OCCH) at the specified address. When 
that opcode is executed, all registers are saved and displayed, and all breakpoints locations are 
restored to their original value. If control is not returned to the Monitor by a breakpoint or 
interrupt, the breakpoints will not be cleared. 

The user stack pointer must be valid and have 6 bytes available for this command to work. 
The jump to the user program is made with an IRET instruction with the user stack pointer set and 
user Flags, Code Segment register, and Instruction Pointer on the user stack. Thus if the user stack 
is not valid, the system will "crash". 

The program below is an infinite loop of 16 INC AX instructions followed by a jump to its 
start. First breakpoints are used to execute a few instructions. Then a Go without breakpoints 
allows continuous, full-speed execution which is terminated by an interrupt from the keyboard - in 
this case, typing the space bar. 



>F400 L10 40 
>E410 EB EE 

00400 40 2 40 40 40 40 40 40 40-40 40 40 40 40 40 40 40 0000000000060000 
00410 EB EE kn 

>D410 

Ay-noiO RX-OOOO CX-0000 BX=0000 SP==0C00 BP-0000 si=oooo ni-oooo 
DS-0040 ES-0040 88-0040 CS-0040 IP-0010 NV UP EI PL NZ AC PO NC 
>6400 412 

AX=0010 BX-0000 CX=0000 DX=0000 SP=0C00 BP-0000 SI=0000 01=0000 
DS*0040 ES=0040 SS-0040 CS=0040 IP-0000 NV UP EI PL NZ AC PO NC 
>G 

AX=4590 BX-0000 CX-0000 DX-0000 SP-0C00 ^7^° J 3 l7°ly° ^1^° 
DS=0040 ES--0040 SS-^0040 CS-0040 IP=0000 NV. UP EI PL NZ AC PL NC 



I <HEX4> 

Input - Inputs a byte from the specified port and displays it. A 16-bit port address is allowed. 
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M <RANGE> <ADDRESS> 

Move - Moves the block of memory specified by <RANGE> to <ADDRESS>. Overlapping 
moves are always performed without loss of data, i.e., data is moved before it is overwritten. To 
do this, all moves from higher addresses to lower ones are done front-to -back, while moves from 
lower addresses to higher ones are done back -to -front. 



>M400 L.10 420 

>D400 42F 

00400 54 45 53 54 4? 4E 47 FF-F7 FF FF F6 FF FF FE FF 

00410 FF FF FE FF FF FF FF FF-FE FF FF FF FF FF FF FF 

00420 54 45 53 54 4? 4E 47 FF-F7 FF FF F6 FF FF FE FF 

>N404 40F 405 

>D400 L10 

00400 54 45 53 54 4? 4? 4E 47-FF F7 FF FF F6 FF FF FE 

>M405 410 404 

>»400L10 

00400 54 45 53 54 49 4E 47 FF-F7 FF FF F6 FF FF FE FF 



TESTING* «♦♦ v..". 
********* ******* 
TESTING«w» .v**". 



TESTIING.w.»V4.' 



TESTING.w* *v. *"* 



O <HEX4> <BYTE> 

Output - <BYTE> is sent to the specified output port. A 16-bit port address is allowed. 



R 

R <REGISTER NAME> 

Register - with no parameters, this command dumps the register save area. 

Giving a register name as a parameter allows that register to be displayed and modified. The 
register name may be AX, BX, CX, DX, SP, BP, SI, Dl, DS, ES, SS, CS, IP, PC, or F (upper case only); 
anything else will result in an "BR Error". IP and PC both refer to the Instruction Pointer and F refers 
to the Flag register. For all exept the Flag register, the current 16-bit value will be printed in hex, 
then a colon will appear as a prompt for the replacement value. Typing <carriage return> leaves 
the register unchanged; otherwise type a <HEX4> to replace. 

The Flag register uses a system of two-letter mnemonics for each flag, as shown below: 




CLEAR 

NV No Overflow 

UP Up (Incrementing) 

Dl Disabled Interrupts 

PL Plus 

NZ Not Zero 

NA No Auxiliary Carry 

PO Parity Odd 

NC No Carry 



SET 

OV Overflow 

DN Down (Decrementing) 

El Enabled Interrupts 

NG Negative 

ZR Zero 

AC Auxiliary Carry 

PE Parity Even 

CY Carry 



Whenever the Flag register is displayed, all flags are displayed in this order. When the F 
register is specified with the R command, the flags are displayed and then the Monitor waits for 
any replacements to be made. Any number of two-letter flag codes may be typed and only those 
flags entered will be modified. If a flag has more than one code in the list, a DF Error (Double 
Flag) will result. If any code is not recognized, a "BF Error" (Bad Flag) will occur. In either case, 
those flags up to the error have been changed, and those after the error have not. 

After reset, all registers are set to zero except the segment registers, which are set to 40H, 
and the Stack Pointer, which is set to OCOOH. Flags are all cleared except for interrupts. Execution 
on a Trace or Go command would thus begin at 400H, which is the first location after the interrupt 
table. 



>R 

AX=0000 
DS=0040 
>R AX 
AX 0000 

:i06 

>RCS 
CS 0040 



BX=0000 CX=:0000 DX=0000 SP=0C00 BPn°nS PT S Jr SS AC D re SS° 
ES=0040 SS=0040 CS=0040 IP=0000 NV UP EI PL NZ AC PE NC 



>RF 

m up e 

>R 

AX=0106 

DS=0040 



I PL NZ AC PE NC ~ZR DN 



BX=0000 
ES=0040 



CX=0000 
SS=0040 



DX=0000 
CS=0040 



SP=0C00 
IP=0000 



BP=0000 SI=0000 DI=0000 
NV DN EI PL ZR AC PE NC 



S <RANGE> <LIST> 

Search - The range is searched for a byte or string of bytes specified by <LIST>. ror each 
occurence the first address of the match is displayed. 



>S400 L8000 'Help' 

00400 
00406 
0040C 
00412 
00418 
0041E 
00424 

00400 48 65 6C 70 0A 0D 48 65-6C 70 0A 0D 48 65 6C 70 
00410 OA OD 48 65 6C 70 OA OD-48 65 6C 70 OA OD 48 6^ 
00420 6C 70 OA OD 48 65 6C 70 



Help. .Help. ♦Help 
♦ t HelP»»HelP. .He 
lp. .Help 
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T 

T <HEX4> 

Trace - The number of instructions specified (default 1) are traced. After each instruction, 
the complete contents of the registers and flags are displayed. (For the meaning of the flag 
symbols, see Register command.) Since this command uses the hardware trace mode of the 8086, 
even ROM may be traced. 



>R 

AX=0106 
DS=0040 
>T 



BX=0000 CX=0000 DX=0000 SP=0C00 BP=0000 SI=0000 DI=0000 
ES-0040 SS=0040 CS=0040 IP=0000 NV DN EI PL ZR AC PE NC 



AX=0107 
DS=0040 
>T 



BX=O000 CX=0000 DX=0000 SP=0C00 BP=0000 SI=0000 DI«0000 
ES=0040 SS=0040 CS=0040 IP=0001 NV DN EI PL NZ NA PO NC 



AX=0108 
DS=0040 
>T4 



BX=0000 CX=0000 DX-^0000 SP=0C00 BP=0000 31=0000 DI=0000 
ES=0040 SS=0040 CS==0040 IP=0002 NV DN EI PL NZ NA PO NC 



AX=0109 BX=0000 CX=0000 DX=0000 SP=0C00 BP=0000 SI=0000 DI=0000 

DS=0040 ES=0040 SS=0040 CS=0040 IP-0003 NV DN EI PL NZ NA PE NC 

AX^OiOA BX^OOOO CX^OOOO DX^OOOO SP=0C00 BP=0000 SI=0000 DI=0000 

DS=0040 ES=0040 SS=0040 CS=0040 IP=0004 NV DN EI PL NZ NA PE NC 

AX=010B BX=0000 CX=0000 DX=0000 SP^OCOO BP=0000 SI=0000 DI=0000 

DS=0040 ES=0040 SS«=0040 CS=0040 IP=0005 NV DN EI PL NZ NA PO NC 

AX--=010C BX=0000 CX=0000 DX=0000 SP»OCOO BP=0000 SI=0000 DI=0000 

DS='0040 ES=0040 SS=0040 CS=-"=0040 IP=0006 NK> DN EI PL NZ NA PE NC 
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8086 Monitor Assembly Listing 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

07F0 

07F0 EA 00 00 80 FF 

07F5 

07F5 

07E5 

07F5 

07F5 0D 00 68 00 AO 01 

40 03 78 04 
07FF 
07FF 
0100 
0100 
0100 
0100 
0100 
0100 
0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0100 

0102 

0104 

0118 

0169 

016A 

019C 

019C 

019C 

019C 

019C 

019E 

01A0 

01A2 

01A4 

01A6 

01A8 

01AA 

01 AC 

01AE 

01B0 

01B0 

01B2 

01B4 



Seattle Computer Products 8086 Monitor version 1.5 4/24/80 

by Tim Paterson 
This software, is not copyrighted. 



;To select a disk boot, set one of the following equates 
;to 1, the rest to 0. 



CROMEMC04FDC: 
NORTHSTARSD: 
TARBELL: 
OTHER: 

PUTBASE:EQU 

LOAD: EQU 

ORG 

PUT 

JMP 



EQU 
EQU 
EQU 
EQU 



100H 

20 OH 

7F0H 

PUTBASE+7F0H 

0.0FF80H 



;1 for 4FDC, for others 
;North Star single density? 
;Tarbell (single or double)? 

;User-def ined disk 



;Power-on jump to monitor 



;Baud Rate Table. The 9513 divides 2MHz by these values. 
;They are for 9600, 1200, 300, 150, 110 baud 



BAUD: 



DW 



ORG 



13,104,416,832,1144 



100H 



; System Equates 



BASE: 


EQU 


0F0H 


STAT: 


EQU 


BASE+7 


DATA: 


EQU 


BASE+6 


DAV: 


EQU 


2 


TBMT: 


EQU 


1 


BUFLEN: 


EQU 


80 


BPMAX: 


EQU 


10 


BPLEN : 


EQU 


BPMAX+BPMAX 


REGTABLEN:EQU 


14 


SEGDIF: 


EQU 


800H 


PROMPT: 


EQU 


ti^n 


CAN: 


EQU 


"@» 


;RAM area. 




BRKCNT: 


DS 


2 


TCOUNT: 


DS 


2 


BPTAB: 


DS 


BPLEN 


LINEBUF 


:DS 
ALIGN 


BUFLEN+1 




DS 


50 


STACK: 






;Reglster save 


area 


AXSAVE: 


DS 


2 


BXSAVE: 


DS 


2 


CXSAVE : 


DS 


2 


DXSAVE: 


DS 


2 


SPSAVE: 


DS 


2 


BPSAVE: 


DS 


2 


SI SAVE: 


DS 


2 


DISAVEi 


DS 


2 


DSSAVEi 


DS 


2 


ESSAVE: 


DS 


2 


RSTACK 




;Stack set 


SSSAVE; 


DS 


2 


CSSAVE 


DS 


2 


IPSAVE 


DS 


2 



;RAM area base address 



;CPU Support base port address 

;UART status port 

;UART data port 

;UART data available bit 

;UART transmitter ready bit 

;Maximum length of line input buffer 

;Maximum number of breakpoints 

;Length of breakpoint table 

;Number of registers 

;-0FF800H (ROM address) 



;Number of breakpoints 
;Number of steps to trace 
;Breakpoint table 
;Line input buffer 

;Working stack area 



;Stack set here so registers can be saved by pushing 
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01B6 
01B8 
01B8 
01B8 
01B8 
0000 
0000 
0000 
0000 
0000 
0001 
0003 
0005 
0007 
0009 

oooc 

OOOF 
0010 
0011 
0016 
0018 
001A 
00 ID 
001E 
00 IF 
0024 
0027 
0027 
0029 
002B 
002D 
00 2F 
0032 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0034 
0037 
003A 
003A 
00 3B 
003C 
003E 
0040 
0040 
0041 
0042 
0043 
0045 
0045 
0046 
0049 
00 4B 
004B 
00 4B 
004B 
004B 
004B 
004B 
004E 



FSAVE: DS 



;Start of Monitor code 



ORG 

PUT 




PUTBASE 



;0ne-time initialization 



FC 

33 CO 

8E SO 

8E D8 

8E CO 

BF 9C 01 

B9 OE 00 

F3 

AB 

80 OE B7 01 02 

Bl 04 

BO 40 

BF AC 01 

F3 

AB 

C6 06 A5 01 OC 

BC 9C 01 

BO 17 
E6 F5 
BO F3 
E6 F4 
B8 84 05 
E7 F4 



BE 33 07 
BA FO 00 

2E 
AC 

8A C8 
E3 05 

2E 
AC 
EE 
E2 FB 

42 

80 FA F8 

75 EF 



UP 
XOR 
MOV 
MOV 
MOV 
MOV 
MOV 
REP 
STOW 
OR 
MOV 
MOV 
MOV 
REP 
STOW 
MOV B 
MOV 
; Prepare 9513 
MOV 
OUT 
MOV 
OUT 
MOV 
OUTW 



AX.AX 

SS.AX 

DS.AX 

ES,AX 

DI.AXSAVE 

CX.14 



B,[FSAVE+1],2 

a, 4 

AL.40H 
DI.DSSAVE 



[SPSAVE+1] ,0CH 
SP, STACK 



;Set register images to zero 
; Enable interrupts 



;Set segment reg. images to 40H 
;Set user stack to 400H+OC00H 



; Select Master Mode register 

;Low byte of Master Mode 
;0utput 84H to BASE+4 
;and 05H to BASE+5 



AL.17H 

BASE+5 

AL.0F3H 

BASE+4 

AX.584H 

BASE+4 
Master Mode now set to 84F3H: 

Scaler set to BCD division 
Enable data pointer increment 
8-bit data bus 

FOUT=100Hz, dividing F5 by 4 (F5=4MHz/10000) 
Both alarm comparators disabled 
Time-of-day enabled 
Counter 5 selected 

Initialize loop. Ports BASE through BASE+7 are initialized 
from table. Each table entry has number of bytes followed by 

data. 



MOV 
MOV 

INITPORT: 

SEG 
LODB 
MOV 
JCXZ 

INITBYTE: 

SEG 
LODB 
OUT 
LOOP 

NEXTPORT: 

INC 
CMP 
JNZ 



SI.INITTABLE 
DX.BASE 

CS 

CL.AL 
NEXTPORT 

CS 

DX 

INITBYTE 

DX 

DL.BASE+8 

INITPORT 



; Initialization table 

;DX has (variable) port no. 



;Get byte count 

;No init. for some ports 



;Get init. data 

;Send to port 

;As many bytes as required 

;Prepare for next port 
; Check against limit 



E8 19 00 



; Initialization complete except for determining baud rate. 
;Both 8259As are ready to accept interrupts, the 9513 is 
;providing 19.2k baud X 16 to the 8251A which is set for 
;16X clock and one stop bit. 

CALL CHECKB ;Check for correct baud rate 
;CHECKB does not return if baud rate is correct 



12 - 



004E 

OOAE 

OOAE 

004E 

004E BE F5 07 

0051 

0051 

0051 B8 23 E8 

0054 E7 F4 

0056 

0056 

0056 

0056 

0056 

0056 BO OD 

0058 E6 F5 

00 5A 

00 5A 2E 

005B AD 

005C E6 F4 

005E 8A C4 

0060 E6 F4 

0062 E8 02 00 

0065 EB F3 

0067 

0067 E8 98 00 

006A E8 95 00 

006D 3C OD 

006F 74 01 

0071 C3 
0072 
0072 
0072 
0072 
0072 

0072 BF 18 01 
0075 C6 05 OD 
0078 E4 FF 
007A A8 01 
007C 74 03 
007E E9 F5 06 
0081 

0081 BE 51 07 
0084 E8 8B 00 
0087 
0087 

0087 FC 

0088 33 CO 
008A 8E D8 
008C 8E CO 
008E BC 9C 01 

0091 C7 06 64 00 BB 

0097 8C OE 66 00 

009B BO 3E 

009D E8 C8 00 

OOAO E8 IE 00 

00A3 

00A3 

00A3 E8 7F 00 

00A6 74 DF 

00A8 8A 05 

OOAA 

OOAA 2C 42 

OOAC 72 10 

OOAE 3C 13 

OOBO 73 OC 

00B2 47 

00B3 DO EO 

00B5 98 

00B6 93 



jlntial baud rate (19.2k) was wrong, so run auto-baud routine 

INITBAUD: 

MOV SI .BAUD 

;First set up 9513 for slower baud rates (<-9600). 

{Counter 5 mode register has already been selected. 

MOV AX.0E823H ;Output 23H to BASE+4 
OUTW BASE+4 ;and 0E8H to BASE+5 

;23H to BASE+4 sets lower half of Counter 5 mode register. 

;Reload from Load, count down repetively in binary, 

; toggle output. 

;0E8H to BASE+5 disables data pointer sequencing 



; Select Counter 5 load reg. 



;Get divisor 
;Output low byte 

;Output high byte 

; Check if baud rate correct 

;Try next rate if not 

;First byte could be messed up 

;Get carriage return 

;Correct? 

;Don't return if correct 

;Didn't get it yet 



MOV 


AL.0DH 


OUT 

TVTT'PTl a 


BASE+5 


IN itb: 

SEG 


CS 


LODW 




OUT 


BASE+4 


MOV 


AL.AH 


OUT 


BASE+4 


CALL 


CHECKB 


JP 


INITB 


CHECKB: 




CALL 


IN 


CALL 


IN 


CMP 


AL,13 


JZ 


MONITOR 


RET 





initialization complete, including baud rate. 

MONITOR: 

; Do auto boot if sense switch is on. 



MOV 


DI.LINEBUF 


MOV 


B,[DIJ,13 


IN 


BASE+0FH 


TEST 


AL.l 


JZ 


DOMON 


JMP 


BOOT 


MOV 


SI, HEADER 


CALL 


PRINTMES 



;No breakpoints after boot 
; Sense switch port 



DOMON: 



COMMAND: 

{Re-establish initial conditions 
UP 



06 



XOR 


AX, AX 


MOV 


DS.AX 


MOV 


ES.AX 


MOV 


SP, STACK 


MOV 


[64H],INT 


MOV 


[66H],CS 


MOV 


AL, PROMPT 


CALL 


OUT 


CALL 


INBUF 



;Set UART interrupt vector 



{Get command line 
{From now and throughout command line processing, DI points 
{to next character in command line to be processed. 

CALL SCANB ;Scan off leading blanks 

JZ COMMAND ;Null command? 

MOV AL,[DI] ;AL=first non-blank character 
{Prepare command letter for table lookup 



SUB 


AL,"B" 


JC 


ERR1 


CMP 


AL,"T"- 


JNC 


ERR1 


INC 


DI 


SHL 


AL 


CBW 




XCHG 


BX.AX 



;Low end range check 
+1-"B" {Upper end range check 



{Times two 

{Now a 16-bit quantity 

;In BX we can address with it 



- 13 



00B7 2E 






00B8 FF 


97 


7D 01 


OOBC EB 


C9 




OOBE E9 


A8 


02 


OOC1 






OOC1 






OOC1 






OOC1 






OOCl BF 


18 


01 


00C4 33 


C9 




00C6 






00C6 E8 


39 


00 


00C9 3C 


20 




OOCB 72 


IB 




OOCD 3C 


7F 




OOCF 74 


OE 




OOD1 E8 


94 


00 


00D4 3C 


40 




00D6 74 


25 




00D8 AA 






00D9 41 






OODA 83 


F9 


50 


OODD 76 


E7 




OODF 






OODF E3 


E5 




OOE1 4F 






00E2 49 






00E3 E8 


29 


00 


O0E6 EB 


DE 




00E8 






00E8 3C 


08 




OOEA 74 


F3 




OOEC 3C 


OD 




OOEE 75 


D6 




OOFO AA 






OOF1 BF 


18 


01 


00F4 






00F4 






00F4 






OOF4 






00F4 BO 


OD 




00F6 E8 


6F 


00 


00F9 BO 


OA 




OOFB EB 


6B 




OOFD 






OOFD 






OOFD 






OOFD 






OOFD E8 


F4 


FF 


OlOO EB 


85 




0102 






0102 






0102 






0102 






0102 FA 






0103 E4 


F7 




0105 A8 


02 




0107 74 


F9 




0109 E4 


F6 




010B 24 


7F 




010D FB 






010E C3 






010F 






010F 






010F 






010F 






010F BE 


73 


07 


0112 






0112 






0112 









SEG 


CS 




CALL 


[BX+COMTAB] 




JP 


COMMAND 


ERR1: 


JMP 


ERROR 


;Get input line 


INBUF: 








MOV 


DI.LINEBUF 




XOR 


CX,CX 


GETCH: 








CALL 


IN 




CMP 


AL.20H 




JC 


CONTROL 




CMP 


AL.7FH 




JZ 


BACKSP 




CALL 


OUT 




CMP 


AL.CAN 




JZ 


KILL 




STOB 






INC 


CX 




CMP 


CX.BUFLEN 




JBE 


GETCH 


BACKSP: 








JCXZ 


GETCH 




DEC 


DI 




DEC 


CX 




CALL 


BACKUP 




JP 


GETCH 


CONTROL 


: 






CMP 


AL,8 




JZ 


BACKSP 




CMP 


AL.13 




JNZ 


GETCH 




STOB 






MOV 


DI.LINEBUF 


{Output 


CR/LF 


sequence 


CRLF: 








MOV 


AL.13 




CALL 


OUT 




MOV 


AL.10 




JP 


OUT 


;Cancel 


input 


line 


KILL: 








CALL 


CRLF 




JP 


COMMAND 



; Execute command 
;Get next command 



{Character input routine 
IN: 



DI 

INB 

TEST 

JZ 

INB 

AND 

EI 

RET 



STAT 

AL.DAV 

IN 

DATA 

AL.7FH 



;Next empty buffer location 
; Character count 

;Get input character 

; Check for control characters 

;RUBOUT is a backspace 

;Echo character 
{Cancel line? 

;Put in input buffer 

;Bump character count 

{Buffer full? 

;Drop in to backspace if full 

;Can't backspace over nothing 

;Drop pointer 

;and character count 

;Send physical backspace 

;Get next char. 

{Check for backspace 

{Check for carriage return 
; Ignore all other control char. 
;Put the car. ret. in buffer 
;Set up DI for command processing 



;Poll, don't interrupt 

;Loop until ready 

;Only 7 bits 
{Interrupts OK now 



{Physical backspace 
BACKUP: 



blank, backspace, blank 



MOV SI.BACMES 
{Print ASCII message. Last char has bit 7 set 



14 



0112 

0112 2E 

0113 AC 

0114 E8 
0117 DO 
0119 73 
011B C3 
011C 

one 
one 
one 
one E8 

01 IF 82 
0122 75 

0124 47 
0125 
0125 
0125 
0125 

0125 BO 

0127 51 

0128 Bl 
012A F3 
012B AE 
012C 4F 
012D 59 
012E 
012E 82 

0131 C3 
0132 
0132 
0132 
0132 

0132 8C 
0134 B4 
0136 E8 
0139 03 
013B EB 
013D 
013D 
013D 
013D 
013D 

01 3D 8C 
013F B4 
0141 E8 
0144 03 
0146 
0146 
0146 82 
0149 E8 
014C 
014C 
014C 
014C 
014C 8A 
014E E8 
0151 8A 
0153 
0153 
0153 
0153 
0153 8A 
0155 

0155 51 

0156 Bl 
0158 D2 
015A 59 
015B 
015B E8 



51 00 

EO 

F7 



06 00 
3D 2C 
OA 



20 

FF 



3D OD 



DA 
00 

78 00 
D6 

09 



C2 
00 

6D 00 
D7 



D4 00 
12 00 



C6 

02 00 
C2 



EO 



04 

E8 



02 00 



PRINTMES : 




SEG 


CS 


LODB 




CALL 


OUT 


SHL 


AL 


JNC 


PRI! 


RET 





;Get char to print 
;Hlgh bit set? 



;Scan for parameters of a command 
SCANP: 



CALL 
CMP 
JNE 
INC 



SCANB 

B,[DI],"," 
EOLCHK 
DI 



;Get first non-blank 
;One comma between params OK 
j If not comma, we found param 
; Skip over comma 



;Scan command line for next non-blank character 
SCANB: 



EOLCHK: 



MOV 

PUSH 

MOV 

REPE 

SCAB 

DEC 

POP 

CMP 
RET 



AL," " 

CX 

CL.-l 



DI 
CX 



;Don't disturb CX 

;but scan as many as necessary 

;Back up to first non-blank 



B,[DI],13 



;Print the 5-digit hex address of SI and DS 
OUTSI: 



MOV 

MOV 

CALL 

ADD 

JP 



DX.DS 
AH,0 
SHIFT4 
DX.SI 
OUT ADD 



;Put DS where we can work with it 
;Will become high bits of DS 
;Shif t DS four bits 
;Compute absolute address 
{Finish below 



;Print 5-digit hex address of DI and ES 
;Same as OUTSI above 



OUTDI: 



MOV 
MOV 
CALL 
ADD 



DX.ES 
AH,0 
SHIFT4 
DX.DI 



; Finish OUTSI here too 

OUT ADD: 

ADC AH.O 

CALL HIDIG 



;Add in carry to high bits 
;Output hex value in AH 



;Prlnt out 16-bit value in DX In hex 
OUT 16: 



MOV 

CALL 

MOV 



AL.DH 

HEX 

AL.DL 



;High-order byte first 

;Then low-order byte 

jOutput byte in AL as two hex digits 

HEX: 

MOV AH.AL ;Save for second digit 

;Shift high digit into low 4 bits 
PUSH CX 

MOV CL , 4 

SHR AL.CL 

POP CX 



CALL 



DIGIT 
- 15 - 



;Output first digit 



015E 






015E 


8A 


C4 


0160 






0160 


24 


OF 


0162 






0162 


04 


90 


0164 


27 




0165 


14 


40 


0167 


27 




0168 






0168 






0168 






0168 






0168 


50 




0169 






0169 


E4 


F7 


016B 


24 


01 


016D 


74 FA 


016F 


58 




0170 E6 


F6 


0172 


C3 




0173 






0173 






0173 






0173 






0173 BO 


20 


0175 EB 


Fl 


0177 






0177 






0177 






0177 






0177 


E8 


F9 FF 


017A 


E2 


FB 


017C 


C3 




017D 






017D 






017D 






01 7D 






017D 






017D 


76 


07 


017F 


68 


03 


0181 


OD 


02 


0183 


88 


03 


0185 


97 


02 


0187 


6A 


06 


0189 


68 


03 


018B 


4C 


06 


018D 


68 


03 


018F 


68 


03 


0191 


68 


03 


0193 


6A 


02 


0195 


68 


03 


0197 


59 


06 


0199 


68 


03 


019B 


68 


03 


019D 


2F 


04 


019F 


BA 


02 


01A1 


6A 


05 


01A3 






01A3 






01A3 






01 A3 






01 A3 






01A3 






01A3 


8A 


C2 


01A5 


24 


OF 


01A7 


E8 


07 00 


01AA 


8A 


DO 


01AC 


8A 


C6 


01AE 


32 


F6 



HIDIG: 

MOV AL,AH ;Now do digit saved in AH 

DIGIT: 

AND AL.OFH ;Mask to 4 bits 

;Trick 6-byte hex conversion works on 8086 too. 

ADD AL.90H 

DAA 

ADC AL.40H 

DAA 

; Console output of character in AL 

OUT: 



OUT1: 



PUSH 

INB 

AND 

JZ 

POP 

OUTB 

RET 



AX 

STAT 

AL.TBMT 

OUT1 

AX 

DATA 



;Character to output on stack 



;Wait until ready 



;0utput one space 
BLANK: 



MOV 
JP 



AL," " 
OUT 



;Output the number of blanks in CX 
TAB: 



CALL 
LOOP 
RET 



BLANK 
TAB 



;Command Table. Command letter indexes into table to get 
; address of command. PERR prints error for no such command. 



C0MTAB: 



DW 


BOOT 


;b 


DW 


PERR 


;c 


DW 


DUMP 


;d 


DW 


ENTER 


;e 


DW 


FILL 


;f 


DW 


GO 


;G 


DW 


PERR 


;H 


DW 


INPUT 


;i 


DW 


PERR 


;J 


DW 


PERR 


;k 


DW 


PERR 


;l 


DW 


MOVE 


;M 


DW 


PERR 


;n 


DW 


OUTPUT 


;o 


DW 


PERR 


;p 


DW 


PERR 


;Q 


DW 


REG 


;R 


DW 


SEARCH 


;s 


DW 


TRACE 


;t 



;Given 20-bit address in AH:DX, breaks it down to a segment 
; number in AX and a displacement in DX. Displacement is 
;always zero except for least significant 4 bits. 



;AL has least significant 4 bits 
;4-bit left shift of AH:DX 
;Restore lowest 4 bits 
;Low byte of segment number 
;Zero high byte of displacement 



MOV 


AL.DL 


AND 


AL.OFH 


CALL 


SHIFT4 


MOV 


DL.AL 


MOV 


AL.DH 


XOR 


DH.DH 



16 - 



01B0 C3 






01B1 






01B1 






01B1 






01B1 






01B1 Dl 


E2 




01B3 DO 


D4 




01B5 Dl 


E2 




01B7 DO 


D4 




01B9 Dl 


E2 




OIBB DO 


D4 




OIBD Dl 


E2 




OIBF DO D4 




01C1 C3 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 






01C2 B9 


05 


00 


01C5 E8 


22 


01 


01C8 50 






01C9 52 






01CA E8 


4F 


FF 


01CD 82 


3D 


4C 


01D0 74 


1C 




01D2 BA 


80 


00 


01D5 E8 


30 


01 


01D8 72 


IB 




01DA B9 


05 


00 


01DD E8 


OA 


01 


01E0 8B 


CA 




01E2 5A 






01E3 5B 






01E4 2B 


CA 




01E6 1A 


E7 




01E8 75 


ID 




01EA 93 






01EB 41 






01EC EB 


OB 




01EE 






01EE 47 






01EF B9 


04 


00 


01F2 E8 


F5 


00 


01F5 






01F5 8B 


CA 




01F7 5A 






01F8 58 






01F9 






01F9 






01F9 






01F9 






01F9 






01F9 






01F9 






01F9 8B 


DA 




01FB 81 


E3 


OF 00 


01FF E3 


04 




0201 03 


D9 




0203 73 


9E 




0205 






0205 






0205 






0205 






0205 







RET 



;Shift AH:DX left 4 bits 



SHIFT4: 








SHL 


DX 




RCL 


AH ; 




SHL 


DX 




RCL 


AH ; 




SHL 


DX 




RCL 


AH ; 




SHL 


DX 




RCL 


AH ; 


RET 2: 


RET 





; RANGE - Looks for parameters defining an address range. 
;The first parameter is a hex number of 5 or less digits 
;which specifies the starting address. The second parameter 
;may specify the ending address, or it may be preceded by 
;"L" and specify a length (4 digits max), or it may be 
;omitted and a length of 128 bytes is assumed. Returns with 
;segment no. in AX and displacement (0-F) in DX. 



RANGE: 



5 digits max 
Get hex number 
Save high 4 bits 
Save low 16 bits 
Get to next parameter 
Length indicator? 

Default length 

Second parameter present? 

If not, use default 

5 hex digits 

Get ending address 

Low 16 bits of ending addr. 

Low 16 bits of starting addr. 

BH=hi 4 bits of start addr. 

Compute range 

Finish 20-bit subtract 

Range must be less than 64K 

AH=starting, BH=ending hi 4 bits 

Range must include ending location 

Finish range testing and return 

Skip over "L" to length 
Length may have 4 digits 
Get the range 

Length 

Low 16 bits of starting addr. 

AH=hi 4 bits of starting addr. 



;RNGCHK verifies that the range lies entirely within one segment. 
;CX=0 means count=10000H. Range is within one segment only if 
jadding the low 4 bits of the starting address to the count is 
;<=10000H, because segments can start only on 16-byte boundaries. 



;Low 16 bits of start addr. 

;Low 4 bits of starting addr. 

;If count=10000H then BX must be 

;Must be <=10000H 

;0K if strictly < 
MAXRNG: 

;If here because of JCXZ MAXRNG, we are testing if low 4 bits 
; (in BX) are zero. If we dropped straight in, we are testing 
;for BX+CX=10000H (=0). Either way, zero flag set means 
jwithing range. 



GETLEN: 



RNGRET: 



MOV 


CX.5 




CALL 


GETHEX 




PUSH 


AX 




PUSH 


DX 




CALL 


SCANP 




CMP 


B,[DI], 


"L" 


JE 


GETLEN 




MOV 


DX.128 




CALL 


HEXIN 




JC 


RNGRET 




MOV 


CX,5 




CALL 


GETHEX 




MOV 


CX.DX 




POP 


DX 




POP 


BX 




SUB 


CX.DX 




SBB 


AH.BH 




JNZ 


RNGERR 




XCHG 


AX.BX 




INC 


CX 




JP 


RNGCHK 




INC 


Dl 




MOV 


CX.4 




CALL 


GETHEX 




MOV 


CX.DX 




POP 


DX 




POP 


AX 





RNGCHK: 








MOV 


BX.DX 




AND 


BX.0FH 




JCXZ 


MAXRNG 




ADD 


BX.CX 




JNC 


GETSEG 



17 



0205 : 


74 ! 


9C 


0207 






0207 B8 . 


52 47 


020A 1 


£9 


IF 03 


020D 






020D 






020D 






020D 






020D i 


£8 : 


B2 FF 


0210 


50 




0211 i 


E8 


4E 01 


0214 


IF 




0215 


8B 


F2 


0217 






0217 


E8 


18 FF 


021A 


56 




021B 






021B 


E8 


55 FF 


021E 






021E 


AC 




02 IF 


E8 


31 FF 


0222 


5A 




0223 


49 




0224 


74 


17 


0226 


8B 


C6 


0228 


A8 


OF 


022A 


74 


OC 


022C 


52 




022D 


A8 


07 


022F 


75 


EA 


0231 


BO 


2D 


0233 


E8 


32 FF 


0236 


EB 


E6 


0238 






0238 


E8 


02 00 


023B 


EB 


DA 


023D 






023D 


51 




023E 


8B 


C6 


0240 


8B 


F2 


0242 


2B 


C2 


0244 






0244 






0244 






0244 






0244 


8B 


D8 


0246 Dl 


EO 


0248 


03 


C3 


024A 


B9 


33 00 


024D 


2B 


C8 


024F 


E8 


25 FF 


0252 


8B 


CB 


0254 






0254 


AC 




0255 


24 


7F 


0257 


3C 


7F 


0259 


74 


04 


025B 


3C 


20 


025D 


73 


02 


02 5F 






025F 


BO 


2E 


0261 






0261 


E8 


04 FF 


0264 


E2 


EE 


0266 


59 




0267 


E9 


8A FE 


026A 






026A 






026A 






026A 







RNGERR: 



JZ 

MOV 

JMP 



GETSEG 

AX,4700H+"R" 
ERR 



;RG ERROR 



;Durap an area of memory in both hex and ASCII 



DUMP: 



ROW: 



BYTE: 



BYTE1: 



CALL 


RANGE 


PUSH 


AX 


CALL 


GETEOL 


POP 


DS 


MOV 


SI.DX 


CALL 


OUTSI 


PUSH 


SI 



CALL 



BLANK 



LODB 




CALL 


HEX 


POP 


DX 


DEC 


CX 


JZ 


ASCII 


MOV 


AX, SI 


TEST 


AL.OFH 


JZ 


ENDROW 


PUSH 


DX 


TEST 


AL,7 


JNZ 


BYTE 


MOV 


AL,"-" 


CALL 


OUT 


JP 


BYTEl 


ENDROW: 




CALL 


ASCII 


JP 


ROW 


ASCII: 




PUSH 


CX 


MOV 


AX, SI 


MOV 


SI,DX 


SUB 


AX.DX 



;Get range to dump 

;Save segment 

;Check for errors 

;Set segment 

;SI has displacement in segment 

;Print address at start of line 
;Save address for ASCII dump 

; Space between bytes 

;Get byte to dump 

;and display it 

;DX has start addr. for ASCII dump 

;Drop loop count 

;If through do ASCII dump 

;On 16-byte boundary? 

;Didn't need ASCII addr. yet 
;On 8-byte boundary? 

;Mark every 8 bytes 



;Show it in ASCII 

;Loop until count is zero 

;Save byte count 
;Current dump address 
;ASCII dump address 
;AX=length of ASCII dump 



; Compute tab length. ASCII dump always appears on right side 
; screen regardless of how many bytes were dumped. Figure 3 
; characters for each byte dumped and subtract from 51, which 
;allows a minimum of 3 blanks after the last byte dumped. 



;Length times 2 
;Length times 3 



MOV 


BX.AX 


SHL 


AX 


ADD 


AX.BX 


MOV 


CX.51 


SUB 


CX.AX 


CALL 


TAB 


MOV 


CX.BX 


ASCDMP: 




LODB 




AND 


AL.7FH 


CMP 


AL.7FH 


JZ 


NOPRT 


CMP 


AL," " 


JNC 


PRIN 



NOPRT: 



PRIN: 



MOV 



AL, M . 



CALL 


OUT 


LOOP 


ASCDMP 


POP 


CX 


JMP 


CRLF 



;Amount to tab in CX 

; ASCII dump length back in CX 

;Get ASCII byte to dump 

;ASCII uses 7 bits 

;Don't try to print RUBOUT 

;Check for control characters 



;If unprintable character 

;Print ASCII character 
;CX times 

{Restore overall dump length 
;Print CR/LF and return 



;Block move one area of memory to another. Overlapping moves 
;are performed correctly, i.e., so that a source byte is not 
{overwritten until after it has been moved. 
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026A 




026A 




026A E8 55 


FF 


026D 51 




026E 50 




026F 8B F2 




0271 B9 05 


00 


0274 E8 73 


00 


0277 E8 E8 


00 


027A E8 26 


FF 


02 7D 8B FA 




027F 5B 




0280 8E DB 




0282 8E CO 




0284 59 




0285 3B FE 




0287 IB C3 




0289 72 07 




02 8B 




028B 




028B 49 




028C 03 Fl 




028E 03 F9 




0290 FD 




0291 41 




0292 




0292 A4 




0293 49 




0294 F3 




0295 A4 




0296 C3 




0297 




0297 




0297 




0297 




0297 




0297 




0297 E8 28 


FF 


029A 51 




029B 50 




029C 52 




029D E8 B4 


00 


02A0 5F 




02A1 07 




02A2 59 




02A3 3B D9 




02A5 BE 18 


01 


02A8 E3 02 




02AA 73 E6 




02 AC 




02AC 2B CB 




02AE 87 D9 




02B0 57 




02B1 F3 




02B2 A4 




02B3 5E 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 




02B4 8B CB 




02B6 06 




02B7 IF 




02B8 EB D8 




02BA 




02BA 




02BA 





MOVE: 



CALL RANGE ;Get range of source area 

PUSH CX ;Save length 

PUSH AX ;Save segment 

MOV SI,DX ;Set source displacement 

MOV CX,5 ;Allow 5 digits 

CALL GETHEX ;in destination address 

CALL GETEOL ; Check for errors 

CALL GETSEG ; Convert dest. to seg/disp 

MOV DI.DX ;Set dest. displacement 

POP BX ; Source segment 

MOV DS,BX 

MOV ES.AX destination segment 

POP CX ;Length 

CMP DI.SI ; Check direction of move 

SBB AX.BX ;Extend the CMP to 32 bits 

JB COPYLIST ;Move forward into lower mem. 

jOtherwise, move backward. Figure end of source and destination 

; areas and flip direction flag. 



DEC 
ADD 
ADD 
DOWN 
INC 
COPYLIST: 

MOVB 

DEC 

REP 

MOVB 

RET 



CX 

SI.CX 

DI.CX 

CX 

;Do at least 1 
CX 



;End of source area 
;End of destination area 
;Reverse direction 



- Range is 1-10000H not 0-FFFFH 



; Block move 



;Fill an area of memory with a list values. If the list 
;is bigger than the area, don't use the whole list. If the 
;list is smaller, repeat it as many times as necessary. 



FILL: 



CALL 


RANGE 


PUSH 


CX 


PUSH 


AX 


PUSH 


DX 


CALL 


LIST 


POP 


DI 


POP 


ES 


POP 


CX 


CMP 


BX,CX 


MOV 


SI.LINEBUF 


JCXZ 


BIGRNG 


JAE 


COPYLIST 


BIGRNG: 




SUB 


CX,BX 


XCHG 


CX.BX 


PUSH 


DI 


REP 




MOVB 




POP 


SI 



;Get range to fill 

;Save length 

;Save segment number 

;Save displacement 

;Get list of values to fill with 

JDisplacement in segment 

; Segment 

;Length 

;BX is length of fill list 

;List is in line buffer 

;If list is big, copy part of it 

;How much bigger is area than list? 

;CX=length of list 

;Save starting addr. of area 

;Move list into area 



;The list has been copied into the beginning of the 
specified area of memory. SI is the first address 
;of that area, DI is the end of the copy of the list 
;plus one, which is where the list will begin to repeat 
;A11 we need to do now is copy [SI] to [DI] until the 
;end of the memory area is reached. This will cause the 
;list to repeat as many times as necessary. 

MOV CX.BX 

PUSH ES 

POP DS 

JP COPYLIST 



;Length of area minus list 
;Different index register 
jrequires different segment reg. 
;Do the block move 



;Search a specified area of memory for given list of bytes. 
; Print address of first byte of each match. 
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02BA 




02BA E8 05 FF 


02BD 51 




02BE 50 




02BF 52 




02C0 E8 ! 


)1 00 


02C3 4B 




02C4 5F 




02C5 07 




02C6 59 




02C7 2B t 


:b 


02C9 




02C9 BE 


18 01 


02CC AC 




02CD 




02CD AE 




02CE E0 : 


FD 


02D0 75 ' 


C4 


02D2 53 




02D3 87 


CB 


02D5 57 




02D6 F3 




02D7 A6 




02D8 8B 


CB 


02DA 5F 




02DB 5B 




02DC 75 


08 


02DE 4F 




02DF E8 


5B FE 


02E2 47 




02E3 E8 


OE FE 


02E6 




02E6 E3 


AE 


02E8 EB 


DF 


02EA 




02EA 




02EA 




02EA 




02EA 




02EA E8 


2F FE 


02ED 




02ED 33 D2 


02EF 8A 


E6 


02F1 E8 


14 00 


02F4 72 


73 


02F6 8A 


DO 


02F8 




02F8 47 




02F9 49 




02FA E8 


OB 00 


02FD 72 


97 


02FF E3 


68 


0301 E8 


AD FE 


0304 OA DO 


0306 EB 


FO 


0308 




0308 




0308 




0308 




0308 




0308 8A 


05 


030A 




030A 




030A 




030A 




030A 




030A 2C 


: 30 


030C 72 


; 88 


030E 3C 


: OA 



SEARCH: 



CALL 


RANGE 


PUSH 


CX 


PUSH 


AX 


PUSH 


DX 


CALL 


LIST 


DEC 


BX 


POP 


DI 


POP 


ES 


POP 


CX 


SUB 


CX.BX 


SCAN: 




MOV 


SI.LINEBUF 


LODB 




DOSCAK: 




SCAB 




LOOPNE 


DOSCAN 


JNZ 


RET 


PUSH 


BX 


XCHG 


BX.CX 


PUSH 


DI 


REPE 




CMPB 




MOV 


CX,BX 


POP 


DI 


POP 


BX 


JNZ 


TEST 


DEC . 


DI 


CALL 


OUTDI 


INC 


DI 


CALL 


CRLF 


TEST: 




JCXZ 


RET 


JP 


SCAN 



;Get area Co be searched 

;Savc count 

;Save segment number 

;Save displacement 

;Get search list 

{No. of bytes in list-1 

displacement within segment 

; Segment 

;Length to be searched 

; minus length of list 

;List kept in line buffer 
;Bring first byte into AL 

;Search for first byte 

;Do at least once by using LOOP 

{Exit if not found 

;Length of list minus 1 

;Will resume search here 

{Compare rest of string 

{Area length back in CX 

;Next search location 

;Restore list length 

; Continue search if no match 

;Match address 

;Print it 

;Restore search address 



;Look for next occurrence 



;Get the next parameter, which must be a hex number. 
;CX is maximum number of digits the number may have. 



;Scan to next parameter 

{Initialize the number 

;Get a hex digit 

{Must be one valid digit 

{First 4 bits in position 

;Next char in buffer 

;Digit count 

;Get another hex digit? 

;A11 done if no more digits 

{Too many digits? 

{Multiply by 16 

;and combine new digit 

;Get more digits 



{Check if next character in the input buffer is a hex digit 
{and convert it to binary if it is. Carry set if not. 



GETHEX: 








CALL 


SCANP 


GETHEX1 


: 






XOR 


DX.DX 




MOV 


AH.DH 




CALL 


HEXIN 




JC 


ERROR 




MOV 


DL.AL 


GETLP: 








INC 


DI 




DEC 


CX 




CALL 


HEXIN 




JC 


RET 




JCXZ 


ERROR 




CALL 


SHIFT4 




OR 


DL.AL 




JP 


GETLP 



HEXIN: 



MOV AL,[DI] 



{Check if AL has a hex digit and convert it to binary if it 
{is. Carry set if not. 



HEXCHK: 



SUB 


AL,"0" 


JC 


RET 


CMP 


AL.10 



{Kill ASCII numeric bias 
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0310 F5 




0311 73 83 




0313 2C 07 




0315 3C 0A 




0317 72 03 




0319 3C 10 




03 IB F5 




03 1C C3 




031D 




03 ID 




03 ID 




03 ID 




03 ID 




03 ID E8 FC 


FD 


0320 E8 E5 


FF 


0323 72 OB 




0325 B9 02 


00 


0328 E8 BF 


FF 


032B 88 17 




032D 43 




032E F8 




032F C3 




0330 




0330 8A 05 




0332 3C 27 




0334 74 06 




0336 3C 22 




0338 74 02 




033A F9 




033B C3 




033C 




033C 8A EO 




033E 47 




033F 




033F 8A 05 




0341 47 




0342 3C OD 




0344 74 23 




0346 3A C4 




0348 75 05 




034A 3A 25 




034C 75 EO 




034E 47 




034F 




034F 88 07 




0351 43 




0352 EB EB 




0354 




0354 




0354 




0354 




0354 




0354 




0354 BB 18 


01 


0357 




0357 E8 C3 


FF 


035A 73 FB 




035C 81 EB 


18 01 


0360 74 07 




0362 




0362 




0362 




0362 




0362 




0362 




0362 E8 CO 


FD 


0365 75 02 




0367 C3 




0368 





RET: 



CMC 




JNC 


RET 


SUB 


AL,7 


CMP 


AL.10 


JC 


RET 


CMP 


AL,16 


CMC 




RET 





;0K if 0-9 
;Kill A-F bias 



jProcess one parameter when a list of bytes ia 

; required. Carry set if parameter bad. Called by LIST 



LISTITEM: 




CALL 


SCANP 


CALL 


HEXIN 


JC 


STRINGCHK 


MOV 


CX,2 


CALL 


GETHEX 


MOV 


[BX] ,DL 


INC 


BX 


GRET: CLC 




RET 




STRINGCHK: 




MOV 


AL,[DI] 


CMP 


AL,"'" 


JZ 


STRING 


CMP 


AL,"" 


JZ 


STRING 


STC 




RET 




STRING: 




MOV 


AH.AL 


INC 


DI 


STRNGLP: 




MOV 


AL, [DI] 


INC 


DI 


CMP 


AL.13 


JZ 


ERROR 


CMP 


AL.AH 


JNZ 


STOSTRG 


CMP 


AH, [DI] 


JNZ 


GRET 


INC 


DI 


STOSTRG: 




MOV 


[BX] ,AL 


INC 


BX 


JP 


STRNGLP 



;Scan to parameter 

;Is it in hex? 

;If not, could be a string 

;0nly 2 hex digits for bytes 

;Get the byte value 

;Add to list 

; Parameter was OK 



;Get first character of param 
; String? 

; Either quote is all right 

;Not string, not hex - bad 

;Save for closing quote 

;Next char of string 

;Check for end of line 
;Must find a close quote 
;Check for close quote 
;Add new character to list 
;Two quotes in a row? 
;If not, we're done 
;Yes - skip second one 

;Put new char in list 

;Get more characters 



;Get a byte list for ENTER, FILL or SEARCH. Accepts any number 
;of 2-digit hex values or character strings in either single 
;(') or double (") quotes. 

LIST: 



LISTLP: 



;Put byte list in the line buffer 

jProcess a parameter 

;If OK, try for more 

;BX now has no. of bytes in list 

;List must not be empty 

;Make sure there is nothing more on the line except for 
;blanks and carriage return. If there is, it is an 
;unrecognized parameter and an error. 



MOV 


BX.LINEBUF 


CALL 


LISTITEM 


JNC 


LISTLP 


SUB 


BX.LINEBUF 


JZ 


ERROR 



GETEOL: 



CALL 

JNZ 

RET 



SCANB 
ERROR 



;Skip blanks 
;Better be a RETURN 
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0368 

0368 

0368 

0368 

0368 

0368 

0369 

0369 

0369 

0369 

0369 

0369 

0369 

0369 

036D 

036F 

0372 

0375 

0375 

0375 

0375 

0375 

0378 

037B 

037B 

037B 

037B 

037B 

037B 

037B 

037E 

037F 

0380 

0383 

0385 

0386 

0387 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

0388 

038B 

038E 

0391 

0391 

0391 

0391 

0394 

0397 

0398 

0399 

039C 

039E 

039F 

03A0 



4F 



81 EF 17 01 
8B CF 
E8 05 FE 
BE 6A 07 



E8 9A FO 
E9 OC FD 



E8 D6 FF 

5F 

07 

BE 18 01 

8B CB 

F3 

A4 

C3 



B9 05 00 
E8 5C FF 
E8 12 FE 



82 EC 08 

80 C6 80 

50 

52 

E8 89 FD 

75 DD 

5F 

07 



;Comnand error. DI has been Incremented beyond the 
; command letter so it must decremented for the 
; error pointer to work. 



PERK: 



DEC 



DI 



; Syntax error. DI points to character in the input buffer 
;which caused error. By subtracting from start of buffer, 
;we will know how far to tab over to appear directly below 
;it on the terminal. Then print "~ Error". 



ERROR: 



SUB 


DI.LINEBUF-1 


MOV 


CX,DI 


CALL 


TAB 


MOV 


SI.SYNERR 



;How many char processed so far? 
parameter for TAB in CX 
;Directly below bad char 
; Error message 



;Print error message and abort to command level 



PRINT: 



CALL 
JMP 



PRINTMES 
COMMAND 



;Short form of ENTER command. A list of values from the 
; command line are put into memory without using normal 
; ENTER mode. 



;Get the bytes to enter 
displacement within segment 
•Segment to enter into 
;List of bytes is in line buffer 
;Count of bytes 



GETLIST: 




CALL 


LIST 


POP 


DI 


POP 


ES 


MOV 


SI.LINEBUF 


MOV 


CX.BX 


REP 




M0VB 




RET 





;Enter that byte list 



;Enter values into memory at a specified address. If the 
;line contains nothing but the address we go into "enter 
;mode", where the address and its current value are printed 
;and the user may change it if desired. To change, type in 
;new value in hex. Backspace works to correct errors. If 
;an illegal hex digit or too many digits are typed, the 
;bell is sounded but it is otherwise ignored. To go to the 
;next byte (with or without change), hit space bar. To 
;back up to a previous address, type "-". On 
;every 8-byte boundary a new line is started and the address 
;is printed. To terminate command, type carriage return. 
; Alternatively, the list of bytes to be entered may be 
; included on the original command line immediately following 
;the address. This is in regular LIST format so any number 
;of hex values or strings in quotes may be entered. 



ENTER: 

MOV CX.5 
CALL GETHEX 
CALL GETSEG 
;Adjust segment and displac 
;of the segment instead of 
; backing up a long way. 



SUB 


AH, 8 


ADD 


DH.80H 


PUSH 


AX 


PUSH 


DX 


CALL 


SCANB 


JNZ 


GETLIST 


POP 


DI 


POP 


ES 


GETROW: 





;5 digits in address 

;Get ENTER address 

jConvert to seg/disp format 
ement so we are in the middle 
the very bottom. This allows 

; Ad just segment 32K down 
; and displacement 32K up 
;Save for later 

;Any more parameters? 

;If not end-of-line get list 

-.Displacement of ENTER 

; Segment 
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03A0 1 


;a 


9A FD 


03A3 1 


28 i 


CD FD 


03A6 






03A6 : 


26 




03A7 


3A 05 


03A9 1 


E8 


K7 FD 


03AC : 


BO 


2E 


03AE : 


E8 


B7 FD 


03B1 : 


B9 


02 00 


03B4 BA 00 00 


03B7 






03B7 


E8 


48 FD 


03BA 


8A 


EO 


03BC 


E8 


4B FF 


03BF 


86 


EO 


03C1 


72 


OC 


03C3 


E8 


A2 FD 


03C6 


8A 


F2 


03C8 


8A D4 


03CA 


E2 


EB 


03CC 






03CC 






03CC 


E8 


33 FD 


03CF 






03CF 


3C 


08 


03D1 


74 


19 


03D3 


3C 


7F 


03D5 


74 


15 


03D7 


3C 


2D 


03D9 


74 


4D 


03DB 


3C 


OD 


03DD 


74 


2F 


03DF 


3C 


20 


03E1 


74 


31 


03E3 






03E3 


BO 


07 


03E5 E8 


80 FD 


03E8 


E3 


E2 


03EA 


EB 


CB 


03EC 






03EC 


82 


F9 02 


03EF 


74 


C6 


03F1 


FE 


CI 


03F3 


8A D6 


03F5 


8A F5 


03F7 


E8 


15 FD 


03FA 


EB 


BB 


03FC 






03FC 






03FC 






03FC 






03FC 






03FC 


82 


F9 02 


03FF 


74 


OB 


0401 






0401 


51 




0402 


Bl 


04 


0404 


D2 


E6 


0406 


59 




0407 


OA D6 


0409 


26 




040A 


88 


15 


040C 






040C 


47 




040D 


C3 




040E 






040E 


E8 


EB FF 


0411 


E9 


EO FC 


0414 






0414 


E8 


; E5 FF 



GETBYTE: 



GETDIG: 



CALL 
CALL 

SEG 

MOV 

CALL 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

CALL 

XCHG 

JC 

CALL 

MOV 

MOV 

LOOP 



OUTDI 
BLANK 

ES 

AL, [DI] 

HEX 

AL,"." 

OUT 

CX,2 

DX,0 

IN 

AH.AL 

HEXCHK 

AH.AL 

NOHEX 

OUT 

DH.DL 

DL.AH 

GETDIG 



;We have two digits, so all we 
WAIT: 



NOHEX: 



CALL 

CMP 

JZ 

CMP 

JZ 

CMP 

JZ 

CMP 

JZ 

CMP 

JZ 



IN 

AL,8 

BS 

AL.7FH 

BS 

AL,"-" 

PREV 

AL,13 

EOL 

AL," " 

NEXT 



;I£ we got here, character was 



BS: 



MOV 
CALL 
JCXZ 
JP 

CMP 

JZ 

INC 

MOV 

MOV 

CALL 

JP 



AL,7 
OUT 
WAIT 
GETDIG 

CL.2 

GETDIG 

CL 

DL.DH 

DH.CH 

BACKUP 

GETDIG 



;Print address of entry 
;Leave a space 



;Get current value 
;And display it 

; Prompt for new value 

;Max of 2 digits in new value 

;Intial new value 

{Get digit from user 
;Save 

;Hex digit? 

;Need original for echo 
;I£ not, try special co»«*nd 
;Echo to console 
;Rotate new value 
;And include new digit 
;At most 2 digits 
will accept now is a command, 

;Get command character 

;Backspace 

;RUBOUT 

;Back up to previous address 

;A11 done with command? 

;Go to next address 

Invalid. Sound bell. 



;CX«=0 means no more digits 
;Don't have 2 digits yet 

;CX=2 means nothing typed yet 
;Can't back up over nothing 
;Accept one more character 
;Rotate out last digit 
;Zero this digit 
;Physical backspace 
;Get more digits 



;If new value has been entered, convert it to binary and 
;put into memory. Always bump pointer to next location 



STORE: 



;Rotate 



NOSTO: 



EOL: 



NEXT: 



CMP CL,2 ;CX=2 means nothing typed yet 

JZ NOSTO ;So no new value to store 

DH left 4 bits to combine with DL and make a byte value 
PUSH CX 



;Hex is now converted to binary 

;Store new value 

;Prepare for next location 



MOV 


CL.4 


SHL 


DH.CL 


POP 


CX 


OR 


DL.DH 


SEG 


ES 


MOV 


[DI] ,DL 


INC 


DI 


RET 




CALL 


STORE 


JMP 


CRLF 



CALL 



STORE 



; Enter the new value 
;CR/LF and terminate 

;Enter new value 
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0417 41 






0418 41 






0419 E8 


5B 


FD 


04 1C 8B 


C7 




041E 24 


07 




0420 75 


84 




0422 






0422 £8 


CF 


FC 


0425 E9 


78 


FF 


0428 






0428 E8 


Dl 


FF 


04 2B 






042B 4F 






042C 4F 






042D EB 


F3 




042F 






042F 






042F 






042F 






042F 






04 2F E8 


EA 


FC 


0432 74 


62 




0434 8A 


15 




0436 47 






0437 8A 


35 




0439 82 


FE 


OD 


043C 74 


76 




043E 47 






043F E8 


20 


FF 


0442 82 


FE 


20 


0445 74 


6D 




0447 BF 


D7 


06 


044A 92 






044B 0E 






044C 07 






044D B9 


OE 


00 


0450 F2 






0451 AF 






0452 75 


3C 




0454 OB 


C9 




0456 75 


06 




0458 4F 






0459 4F 






045A 2E 






045B 8B 


45 


FE 


045E 






045E E8 


07 


FD 


0461 8A 


C4 




0463 E8 


02 


FD 


0466 E8 


OA 


FD 


0469 IE 






046A 07 






04 6B 8D 


9D 


C3 


046F 8B 


17 




0471 E8 


D8 


FC 


0474 E8 


7D 


FC 


0477 BO 


3A 




0479 E8 


EC 


FC 


04 7C E8 


42 


FC 


047F E8 


A3 


FC 


0482 74 


OB 




0484 B9 


04 


00 


0487 E8 


63 


FE 


048A E8 D5 


FE 


048D 89 


17 




048F C3 






0490 






0490 B8 


42 


52 


0493 E9 


96 


00 


0496 









INC 


CX 




INC 


CX 




CALL 


TAB 




MOV 


AX.DI 




AND 


AL,7 


MPLTDrtTJ* 


JNZ 


GETBYTE 


NEiWKUW* 


CALL 


CRLF 




JMP 


GETROW 


PREV: 








CALL 


STORE 


;DI has 


been 


bumped to : 




DEC 


DI 




DEC 


DI 




JP 


NEWROW 



;Leave a space plus two for 
; each digit not entered 

;Next memory address 
;Check for 8-byte boundary 
;Take 8 per line 

;Terminate line 

; Print address on new line 



;Enter the new value 
bumped to next byte. Drop it 2 to go to previous addr 



;Terminate line after backing up 



;Perform register dump if no parameters or set register if a 
;register designation is a parameter. 

REG: 



CALL 


SCANP 




JZ 


DISPREG 




MOV 


DL,[DI] 




INC 


DI 




MOV 


DH, [DI] 




CMP 


DH.13 




JZ 


FLAG 




INC 


DI 




CALL 


GETEOL 




CMP 


DH," " 




JZ 


FLAG 




MOV 


DI.REGTAB 




XCHG 


AX,DX 




PUSH 


CS 




POP 


ES 




MOV 


CX.REGTABLEN 




REPNZ 






SCAW 






JNZ 


BADREG 




OR 


CX.CX 




JNZ 


NOTPC 




DEC 


DI 




DEC 


DI 




SEG 


CS 




MOV 


AX, [DI-2] 




NOTPC: 






CALL 


OUT 




MOV 


AL.AH 




CALL 


OUT 




CALL 


BLANK 




PUSH 


DS 




POP 


ES 




LEA 


BX, [DI+REGDIF-2] 




MOV 


DX, [BX] 




CALL 


OUT 16 




CALL 


CRLF 




MOV 


AL,":" 




CALL 


OUT 




CALL 


INBUF 




CALL 


SCANB 




JZ 


RET 3 




MOV 


CX,4 




CALL 


GETHEX1 




CALL 


GETEOL 




MOV 


[BX] ,DX 




RET3: RET 






BADREG: 






MOV 


AX,5200H+"B" ;BR 


ERROR 


JMP 


ERR 




DISPREG: 







24 



0496 BE D7 06 


MOV 


SI .REGTAB 




0499 BB 9C 01 


MOV 


BX.AXSAVE 




049C B9 08 00 


MOV 


CX.8 




049F E8 65 00 


CALL 


DISPREGLINE 




04A2 E8 4F FC 


CALL 


CRLF 




04A5 B9 05 00 


MOV 


CX,5 




04A8 E8 5C 00 


CALL 


DISPREGLINE 




04AB E8 C5 FC 


CALL 


BLANK 




04AE E8 93 00 


CALL 


DISPFLAGS 




04B1 E9 40 FC 


JMP 


CRLF 




04B4 


FLAG: 






04B4 82 FA 46 


CMP 


DL,"F" 




04B7 75 D7 


JNZ 


BADREG 




04B9 E8 88 00 


CALL 


DISPFLAGS 




04BC BO 2D 


MOV 


AL,"-" 




04BE E8 A7 FC 


CALL 


OUT 




04C1 E8 FD FB 


CALL 


INBUF 




04C4 E8 5E FC 


CALL 


SCANB 




04C7 33 DB 


XOR. 


BX,BX 




04C9 8B 16 B6 01 


MOV 


DX, [FSAVE] 




04CD 


GETFLG: 






04CD 8B F7 


MOV 


SI.DI 




04CF AD 


LODW 






04D0 3C OD 


CMP 


AL.13 




04D2 74 66 


JZ 


SAVCHG 




04D4 82 FC OD 


CMP 


AH, 13 




04D7 74 66 


JZ 


FLGERR 




04D9 BF F3 06 


MOV 


DI.FLAGTAB 




04DC B9 20 00 


MOV 


CX.32 




04DF OE 


PUSH 


CS 


; 


04E0 07 


POP 


ES 




04E1 F2 


REPNE 






04E2 AF 


SCAW 






04E3 75 5A 


JNZ 


FLGERR 




04E5 8A E9 


MOV 


CH.CL 




04E7 80 El OF 


AND 


CL.OFH 




04EA B8 01 00 


MOV 


AX,1 




04ED D3 CO 


ROL 


AX.CL 




04EF 85 C3 


TEST 


AX.BX 




04F1 75 33 


JNZ 


REPFLG 




04F3 OB D8 


OR 


BX.AX 




04F5 OB DO 


OR 


DX.AX 




04F7 F6 C5 10 


TEST 


CH.16 




04FA 75 02 


JNZ 


NEXFLG 




04FC 33 DO 


XOR 


DX,AX 




04FE 


NEXFLG: 






04FE 8B FE 


MOV 


DI.SI 




0500 IE 


PUSH 


DS 




0501 07 


POP 


ES 




0502 E8 17 FC 


CALL 


SCANP 




0505 EB C6 


JP 


GETFLG 




0507 


DISPREGLINE: 






0507 2E 


SEG 


CS 




0508 AD 


LODW 






0509 E8 5C FC 


CALL 


OUT 




050C 8A C4 


MOV 


AL.AH 




050E E8 57 FC 


CALL 


OUT 




0511 BO 3D 


MOV 


AL,"-" 




0513 E8 52 FC 


CALL 


OUT 




0516 8B 17 


MOV 


DX, [BX] 




0518 43 


INC 


BX 




0519 43 


INC 


BX 




051A E8 2F FC 


CALL 


OUT 16 




051D E8 53 FC 


CALL 


BLANK 




0520 E8 50 FC 


CALL 


BLANK 




0523 E2 E2 


LOOP 


DISPREGLINE 




0525 C3 


RET 






0526 


REPFLG: 






0526 B8 44 46 


MOV 


AX,4600H+"D" 


;DF ERROR 


0529 


FERR: 







- 25 



0529 E8 


OE 


00 




052C 








052C E8 


39 


FC 




052F 8A 


C4 






0531 E8 


34 


FC 




0534 BE 


6B 


07 




0537 E9 


3B 


FE 




053A 








053A 89 


16 


B6 


01 


053E C3 








053F 








053F B8 


42 


46 




0542 EB 


E5 






0544 








0544 BE 


F3 


06 




0547 B9 


10 


00 




054A 8B 


16 


B6 


01 


054E 








054E 2E 








054F AD 








0550 Dl 


E2 






0552 72 


04 






0554 2E 








0555 8B 


44 


IE 




0558 








0558 OB 


CO 






055A 74 


OB 






055C E8 


09 


FC 




055F 8A 


C4 






0561 E8 


04 


FC 




0564 E8 


OC 


FC 




0567 








0567 E2 


E5 






0569 C3 








05 6A 








056A 








056A 








056A 








05 6A 








056A 








056A E8 


AF 


FB 




056D E8 


98 


FD 




0570 BA 


01 


00 




0573 72 


06 






0575 B9 


04 


00 




0578 E8 


6F 


FD 




057B 








057B 89 


16 


02 


01 


057F E8 


EO 


F0 




0582 








0582 C7 


06 


00 


01 00 00 


0588 80 


OE 


B7 


01 01 


058D 








058D C7 


06 


OC 


00 Dl 05 


0593 8C 


OE 


OE 


00 


0597 C7 


06 


04 


00 D8 05 


059D 8C 


OE 


06 


00 


05A1 FA 








05A2 C7 


06 


64 


00 D8 05 


05A8 8C 


OE 


66 


00 


05AC BC 


9C 


01 




05AF 58 








05B0 5B 








05B1 59 








05B2 5A 








05B3 5D 








05B4 5D 








05B5 5E 








05B6 5F 








05B7 07 











CALL 


SAVCHG 




ERR: 










CALL 


OUT 






MOV 


AL.AH 






CALL 


OUT 






MOV 


SI.ERRMES 






JMP 


PRINT 




SAVCHG: 










MOV 


[FSAVE] ,DX 






RET 






FLGERR: 










MOV 


AX,4600H+"B" 


;BF ERROR 




JP 


FERR 




DISPFLAGS : 








MOV 


SI.FLAGTAB 






MOV 


CX.16 






MOV 


DX, [FSAVE] 




DFLAGS s 










SEG 


CS 






LODW 








SHL 


DX 






JC 


FLAGSET 






SEG 


CS 






MOV 


AX, [SI+30] 




FLAGSET 


: 








OR 


AX, AX 






JZ 


NEXTFLG 






CALL 


OUT 






MOV 


AL.AH 






CALL 


OUT 






CALL 


BLANK 




NEXTFLG 


: 








LOOP 


DFLAGS 






RET 







;Trace 1 instruction or the number of instruction specified 
;by the parameter using 8086 trace mode. Registers are all 
;set according to values in save area 

TRACE: 



STOCNT: 



STEP: 



EXIT: 



CALL 


SCANP 


CALL 


HEXIN 


MOV 


DX.l 


JC 


STOCNT 


MOV 


CX,4 


CALL 


GETHEX 


MOV 


[TCOUNT] ,DX 


CALL 


GETEOL 


MOV 


[BRKCNT],0 


OR 


B, [FSAVE+1],1 


MOV 


[12] ,BREAKFIX 


MOV 


[14],CS 


MOV 


[4] .REENTER 


MOV 


[6],CS 


Dl 




MOV 


[64H] .REENTER 


MOV 


[66H] ,CS 


MOV 


SP, STACK 


POP 


AX 


POP 


BX 


POP 


CX 


POP 


DX 


POP 


BP 


POP 


BP 


POP 


SI 


POP 


Dl 


POP 


ES 



26 



05B8 


07 










05B9 


17 










05BA 


8B 


26 A4 


01 




05BE 


FF 


36 


B6 


01 




05C2 


FF 


36 B2 


01 




05C6 


FF 


36 B4 


01 




05CA 


8E 


IE 


AC 


01 




05CE 


CF 










05CF 


EB 


Bl 








05D1 












05D1 












05D1 












05D1 












05D1 












05D1 












05D1 


87 


EC 








05D3 


FF 


4E 


00 






05D6 


87 


EC 








05D8 












05D8 












05D8 












05D8 












05D8 












05D8 












05D8 


2E 










05D9 


89 


26 A4 


09 




05DD 


2E 










05DE 


8C 


16 


BO 


09 




05E2 


33 


E4 








05E4 


8E 


D4 








05E6 


BC 


BO 


01 






05E9 


06 










05EA 


IE 










05EB 


57 










05EC 


56 










05ED 


55 










05EE 


4C 










05EF 


4C 










05F0 


52 










05F1 


51 










05F2 


53 










05F3 


50 










05F4 


16 










05F5 


IF 










05F6 


8B 


26 


A4 


01 




05FA 


8E 


16 


BO 


01 




05FE 


8F 


06 


B4 


01 




0602 


8F 


06 B2 


01 




0606 


58 










0607 


80 


E4 


FE 






060A 


A3 


B6 


01 






060D 


89 


26 A4 


01 




0611 


IE 










0612 


07 










0613 


IE 










0614 


17 










0615 


BC 


9C 


01 






0618 


C7 


06 


64 


00 BB 


06 


061E 


BO 


20 








0620 


E6 


F2 








0622 


FB 










0623 


FC 










0624 


E8 


CD 


FA 






0627 


E8 


6C 


FE 






062A 


FF 


OE 


02 


01 




062E 


75 


9F 








0630 












0630 


BE 


04 


01 






0633 


8B 


OE 


00 


01 




0637 


E3 


10 









POP 


ES 


POP 


SS 


MOV 


SP,[SPSAVE] 


PUSH 


[FSAVE] 


PUSH 


[CSSAVE] 


PUSH 


[IPSAVE] 


MOV 


DS,[DSSAVE] 


IRET 




STEP1: JP 


STEP 



;Re-entry point from breakpoint. Need to decrement instruction 
; pointer so it points to location where breakpoint actually 
; occur ed. 



BREAKFIX: 




XCHG 


SP,BP 


DEC 


[BP] 


XCHG 


SP.BP 



;Re-entry point from trace mode or interrupt during 
; execution. All registers are saved so they can be 
;displayed or modified. 



REENTER: 




SEG 


CS 


MOV 


[SPSAVE+SEGDIF),SP 


SEG 


CS 


MOV 


[SSSAVE+SEGDIF],SS 


XOR 


SP.SP 


MOV 


SS,SP 


MOV 


SP.RSTACK 


PUSH 


ES 


PUSH 


DS 


PUSH 


DI 


PUSH 


SI 


PUSH 


BP 


DEC 


SP 


DEC 


SP 


PUSH 


DX 


PUSH 


CX 


PUSH 


BX 


PUSH 


AX 


PUSH 


SS 


POP 


DS 


MOV 


SP, [SPSAVE] 


MOV 


SS, [SSSAVEJ 


POP 


[IPSAVE] 


POP 


[CSSAVE] 


POP 


AX 


AND 


AH.OFEH 


MOV 


[FSAVE] ,AX 


MOV 


[SPSAVE],SP 


PUSH 


DS 


POP 


ES 


PUSH 


DS 


POP 


SS 


MOV 


SP, STACK 


MOV 


[64H],INT 


MOV 


AL.20H 


OUT 


BASE+2 


EI 




UP 




CALL 


CRLF 


CALL 


DISPREG 


DEC 


[TCOUNT] 


JNZ 


STEP1 


MOV 


SI.BPTAB 


MOV 


CX, [BRKCNT] 


JCXZ 


COMJMP 



27 - 



0639 








0639 


8B 


54 


14 


063C 


AD 






063D 


50 






063E 


E8 


62 


FB 


0641 


8E 


CO 




0643 


8B 


FA 




0645 


58 






0646 AA 






0647 


E2 


FO 




0649 


E9 


3B 


FA; 


064C 








064C 








064C 








064C 








064C 


B9 


04 


00 


064F 


E8 


98 


FC 


0652 


EC 






0653 


E8 


FD 


FA 


0656 


E9 


9B 


FA 


0659 








0659 








0659 








0659 








0659 


B9 


04 


00 


065C 


E8 


8B 


FC 


065F 


52 






0660 


B9 


02 


00 


0663 


E8 


84 


FC 


0666 


92 






0667 


5A 






0668 


EE 






0669 


C3 






066A 








066A 








066A 








066A 








066A 








066A 


BB 


18 


01 


066D 


33 


F6 




066F 








066F 


E8 


AA 


FA 


0672 


74 


19 




0674 


B9 


05 


00 


0677 


E8 


70 


FC 


067A 


89 


17 




067C 


88 


67 


ED 


067F 


43 






0680 


43 






0681 


46 






0682 


83 


FE 


OB 


0685 


75 


E8 




0687 


B8 


42 


50 


068A 


E9 


9F 


FE 


068D 








068D 


89 


36 


00 01 


0691 


E8 


CE 


FC 


0694 


8B 


CE 




0696 


E3 


1A 




0698 


BE 


04 


01 


069B 








069B 


8B 


54 


14 


069E 


AD 






069F 


E8 


01 


FB 


06A2 


8E 


D8 




06A4 


8B 


FA 




06A6 


8A 


05 




06A8 


C6 


05 


CC 


06AB 


06 






06AC 


IF 







CLEARBP: 




MOV 


DX, [SI+BPLEN] 


LODW 




PUSH 


AX 


CALL 


GETSEG 


MOV 


ES.AX 


MOV 


DI.DX 


POP 


AX 


STOB 




LOOP 


CLEARBP 


COMJMP: JMP 


COMMAND 



; Input from Che specified port and display result 

INPUT: 



MOV 

CALL 

INB 

CALL 

JMP 



CX,4 

GETHEX 

DX 

HEX 

CRLF 



;Port may have 4 digits 
;Get port number in DX 
;Variable port input 
;And display 



;Output a value to specified port. 



OUTPUT : 



;Port may have 4 digits 
;Get port number 
;Save while we get data 
;Byte output only 
;Get data to output 
;Output data In AL 
;Port in DX 
;Varlable port output 



;Jump to program, setting up registers according to the 
;save area. Up to 10 breakpoint addresses may be specified. 

GO: 



GOl: 



MOV 


CX.4 


CALL 


GETHEX 


PUSH 


DX 


MOV 


CX.2 


CALL 


GETHEX 


XCHG 


AX.DX 


POP 


DX 


OUTB 


DX 


RET 





EXEC: 



SETBP: 



MOV 


BX.LINEBUF 




XOR 


SI, SI 




CALL 


SCANP 




JZ 


EXEC 




MOV 


CX.5 




CALL 


GETHEX 




MOV 


[BX] ,DX 




MOV 


[BX-BPLEN+1],AH 




INC 


BX 




INC 


BX 




INC 


SI 




CMP 


SI.BPMAX+1 




JNZ 


GOl 




MOV 


AX,5000H+"B" 


;BP ERROR 


JMP 


ERR 




MOV 


[BRKCNT],SI 




CALL 


GETEOL 




MOV 


CX.SI 




JCXZ 


NOBP 




MOV 


SI.BPTAB 




MOV 


DX, [SI+BPLEN] 




LODW 






CALL 


GETSEG 




MOV 


DS.AX 




MOV 


DI.DX 




MOV 


AL,[DI] 




MOV 


B,[DI] ,0CCH 




PUSH 


ES 




POP 


DS 





28 



06 AD 


88 


44 


FE 


06B0 


E2 


E9 




06B2 








06B2 


C7 


06 


02 01 01 00 


06B8 


E9 


D2 


FE 


06BB 








06BB 








06BB 








06BB 








06BB 








06BB 








06BB 








06BB 








06BB 


50 






06BC 








06BC 








06BC 








06BC 


BO 


20 




06BE 


E6 


F2 




06C0 


E4 


F6 




06C2 


24 


7F 




06C4 


3C 


13 




06C6 


75 


03 




06C8 


E8 


37 


FA 


06CB 








06CB 


3C 


03 




06CD 


74 


02 




06CF 








06CF 


58 






06D0 


CF 






06D1 








06D1 


E8 


20 


FA 


06D4 


E9 


BO 


F9 


06D7 








06D7 


41 


58 


42 58 43 58 



NOBP: 



MOV 
LOOP 

MOV 
JMP 



[SI-2],AL 
SETBP 

[TCOUNT] , 1 
EXIT 



;Conaole Input interrupt handler. Used to interrupt commands 
;or programs under execution (if they have interrupts 
; enabled). Control-S causes a loop which waits for any other 
; character to be typed. Control-C causes abort to command 
;inode. All other characters are ignored. 



INT: 

PUSH 
; Output End-i 
;wouldn't be 
; worked like 
MOV 
OUT 
IN 
AND 
CMP 
JNZ 
CALL 
NOSTOP: 

CMP 
JZ 
;Just ignore 
POP 
IRET 



AX ;Don't destroy accumulator 

of-Interrupt commands to slave 8259A. This 
necessary if Automatic End of Interrupt mode 
it was supposed tot 

AL.20H 



BASE+2 

DATA 

AL.7FH 

AL, ,, S ,, -"(a ,, 

NOSTOP 

IN 



;Get interrupting character 
;ASCII has only 7 bits 
;Check for Control-S 

;Wait for continue character 

;Check for Control-C 



BREAK: 



REGTAB: 



CALL 
JMP 

DB 



44 58 53 50 42 50 
53 49 44 49 44 53 

45 53 53 53 43 53 
49 50 50 43 



06F3 
06F3 
06F3 
06F3 
06F3 
06F3 
06F3 
06F3 
06F3 
06F5 
06F7 
06F9 
06FB 
06FD 
06FF 
0701 
0703 
0705 
0707 
0709 
070B 
070D 
070F 
0711 
0713 
0715 
0717 
0719 
071B 
071D 
071F 



REGDIF: EQU 



BREAK 
interrupt - restore AX and return 
AX 



CRLF 
COMMAND 

"AXBXCXDXSPBPSIDIDSESSSCSIPPC" 



AXSAVE-REGTAB 



;Flags are ordered to correspond with the bits of the flag 
;register, most significant bit first, zero if bit is not 
;a flag. First 16 entries are for bit set, second 16 for 
;bit reset. 



00 00 
00 00 
00 00 
00 00 
4F 56 

44 4E 

45 49 
00 00 
4E 47 
5A 52 
00 00 
41 43 
00 00 
50 45 
00 00 

43 59 
00 00 
00 00 
00 00 
00 00 
4E 56 
55 50 

44 49 



FLAGTAB: 




DW 





DW 





DW 





DW 





DB 


"OV" 


DB 


"DN" 


DB 


"EI" 


DW 





DB 


"NG" 


DB 


"ZR" 


DW 





DB 


"AC" 


DW 





DB 


"PE" 


DW 





DB 


"CY" 


DW 





DW 





DW 





DW 





DB 


"NV" 


DB 


"UP" 


DB 


"DI" 



29 



0721 ( 


DO 


00 


0723 . 


50 


4C 


0725 ■ 


4E 


5A 


0727 ( 


00 


00 


0729 


4E 


41 


072B i 


00 


00 


072D 


50 


4F 


072F 


00 


00 


0731 


4E 


43 


0733 






0733 






0733 






0733 






0733 






0733 






0733 






0733 






0733 






0733 


01 




0734 


19 




0735 






0735 






0735 






0735 






0735 






0735 


04 




0736 


10 


02 OF FD 


073A 






073A 






073A 


01 




073B 


19 




073C 






073C 






073C 






073C 






073C 






073C 


04 




073D 


18 


01 OB FD 


0741 






0741 






0741 






0741 






0741 






0741 






0741 






0741 






0741 






0741 






0741 


06 




0742 


63 


OB 07 00 


0748 






0748 






0748 






0748 


02 




0749 


70 


05 


074B 






074B 


00 




074C 






074C 






074C 






074C 






074C 






074C 






074C 






074C 






074C 






074C 


04 




074D 


B7 


1 77 CE 37 



DW 





DB 


"PL" 


DB 


"NZ" 


DW 





DB 


"NA" 


DW 





DB 


"PO" 


DW 





DB 


"NC" 



{Initialization table. First byte of each entry is no. 
;o£ bytes to output to the corresponding port. That 
{many initialization bytes follow. 

INITTABLE: 

;Port BASE+0 - Master 8259A. Intialization Command Word (ICW) 

;One sets level-triggered mode, multiple 8259As, require 

;ICW4. 

DB 1 

DB 19H 
;Port BASE+1 - Master 8259A. ICW2 sets vector base to 10H 
;ICW3 sets a slave on interrupt input 1; ICW4 sets buffered 
;mode, as a master, with Automatic End of Interrupt, 8086 
;vector; Operation Command Word (0CW) One sets interrupt 
;mask to enable line 1 (slave 8259A) only. 

DB 4 

DB 10H,2,0FH,0FDH 
{Port BASE+2 - Slave 8259A. ICW1 sets level-triggered mode, 
;tnultiple 8259As, require ICW4. 

DB 1 

DB 19H 
;Port BASE+3 - Slave 8259A. ICW2 sets vector base to 18H 
;ICW3 sets slave address as 1; ICW4 sets buffered mode, 
;as slave, with Automatic End of Interrupt (which doesn't 
{work in slaves), 8086 vector; 0CW1 sets interrupt mask 
;to enable line 1 (serial receive) only. 

DB 4 

DB 18H,1,0BH,0FDH 
;Port Base+4 - 9513 Data. 9513 has previously been set 
;up for Counter 5 mode register with auto increment. Thus 
;mode is set to 0B63H, which is no gating, count source is 
;F1 (4 MHz), reload from load or hold, count down repetitively 
;in binary, with output toggle. Load register is set to 
;0007H, and Hold register is set to 0006H. Thus we 
; alternately divide by 7 and 6, which is divided by 2 by 
;the output toggle, thus providing a square wave of 
;4 MHz/13 = 307.7 kHz, which divided by 16 in the 8251A 
{provides 19,230 baud (0.16% high). 

DB 6 

DB 63H,0BH,7,0,6,0 
{Port BASE+5 - 9513 Control. Load and arm counter 5, 
{enabling baud rate generation. Then select counter 
;5 mode register, in case baud rate wasn't right. 



DB 
DB 



2 
70H,5 



0751 0D 0A 0A 53 43 50 
20 38 30 38 36 20 



{Port BASE+6 - 8251A Data. No initialization to this port. 

DB 
;Port BASE+7 - 8251A Control. Since it is not possible to 
;know whether the 8251A next expects a Mode Instruction or 
;a Command Instruction, a dummy byte is sent which could 
;safely be interpreted as either but guarantees it is now 
{expecting a Command. The command sent is Internal Reset 
{which causes it to start expecting a mode. The mode sent 
;is for 2 stop bits, no parity, 8 data bits, 16X clock. 
{This is followed by the command to error reset, enable 
{transmitter and receiver, set RTS and DTR to +12V. 

DB 4 

DB 0B7H,77H,0CEH,37H 
HEADER: DM 13,10,10,"SCP 8086 Monitor 1.5", 13,10 



30 



4D 6F 6E 

72 20 31 

8A 
07 6A 5E 
07 6B 20 45 72 

0D 8A 
0773 08 20 88 
0776 
0776 
0776 
0776 
0776 

0776 57 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 
0777 

0777 BO 01 
0779 E6 02 
07 7B BO 84 
077D E6 00 
077F BO 7F 
0781 E6 04 
0783 B2 21 
0785 

0785 BO DO 
0787 E6 30 
0789 

0.789 E4 30 
078B DO C8 
078D 72 FA 
078F 80 F2 10 
0792 8A C2 
0794 E6 34 
0796 BF 00 02 
0799 BO OC 
079B E6 30 
079D 

079D E4 34 
079F DO C8 
07A1 73 FA 
07A3 E4 30 
07A5 24 98 
07A7 75 DC 
07A9 BO 01 
07AB E6 32 
07AD B9 80 00 
07B0 8A C2 
07B2 OC 80 
07B4 E6 34 
07B6 BO 8C 
07B8 E6 30 
07BA 

07BA E4 34 
07BC DO C8 
07BE 72 OB 
07C0 E4 33 
07C2 AA 
07C3 E2 F5 
07C5 

07C5 E4 34 
07C7 DO C8 
07C9 73 FA 



69 74 6F 
2E 35 OD 

SYNERR; DB 
72 6F 72 ERRMES: DM 

BACMES; DM 



" Error", 13, 10 
8,32,8 



;Disk boot. Select one of the following routines by 
;settlng the equates at the start of this program. 



BOOT: 



PUSH 



DI 



;Boot for Cromemco 4FDC disk controller with either 
;large or small disks. Loads track 0, sector 1 into LOAD, 

IF CR0MEMC04FDC 

DISK: E0.U 30H 



;Reset 4FDC serial I/O 
;and set for 300 baud 



RETRY: 



READY: 



HOME : 



READ: 



USTAT: 



MOV 


AL,1 


OUT 


2 


MOV 


AL.84H 


OUT 





MOV 


AL.7FH 


OUT 


4 


MOV 


DL,21H 


MOV 


AL,0D0H 


OUTB 


DISK 


INB 


DISK 


ROR 


AL 


JC 


READY 


XOR 


DL.10H 


MOV 


AL.DL 


OUTB 


DISK+4 


MOV 


DI.LOAD 


MOV 


AL.12 


OUTB 


DISK 


INB 


DISK+4 


ROR 


AL 


JNC 


HOME 


INB 


DISK 


AND 


AL.98H • 


JNZ 


RETRY 


MOV 


AL.l 


OUTB 


DISK+2 


MOV 


CX.80H 


MOV 


AL,DL 


OR 


AL.80H 


OUTB 


DISK+4 


MOV 


AL.8CH 


OUTB 


DISK 


INB 


DISK+4 


ROR 


AL 


JC 


DONE 


INB 


DISK+3 


STOB 




LOOP 


READ 


INB 


DISK+4 


ROR 


AL 


JNC 


WSTAT 
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07CB 

07CB E4 30 

07CD 24 9C 

07CF 75 B4 

07D1 

07D1 

07D1 

07D1 

07D1 

07D1 C7 06 B2 01 00 00 

07D7 C7 06 B4 01 00 02 

07DD 5F 

07DE E9 89 FE 

07E1 



DONE: 



INB 
AND 
JNZ 
END IF 



DISK 

AL.9CH 

RETRY 



POP DS 

END IF 
;Succe.ssfui read 



MOV 
MOV 
POP 
JMP 



[CSSAVE],0 
[IPSAVE] .LOAD 

DI 

GO 



IE 



Error Count 



0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0777 

0778 B8 
077B 8E 

07 7D AO 
0780 B9 

0783 
0783 E8 

0786 E2 
0788 
0788 F6 
078D 75 
07 8F AO 
0792 D4 
0794 AO 
0797 E8 
079A E8 
079D EB 
079F 
079F AO 
07A2 
07A2 F6 
07A7 74 
07A9 C3 
07AA 
07AA BF 
07AD B9 
07B0 BB 
07B3 
07B3 E8 
07B6 F6 
07BB 75 
07BD 
07BD F6 
07C2 El 



i 

;Boot for North Star disk, single density. 
;Loads track 0, sector Into address LOAD 
;Bug in North Star boot fixed 5-26-81. 



IF 



NORTHSTARSD 



;Disk command equates 



SEL: 

STPli 

STP2i 

NOP: 

SEC: 



EQU 
EQU 
EQU 
EQU 
EQU 



STPOUT: EQU 

RD: 

BST: 



B8 FE 
D8 

01 00 
14 00 

19 00 

FB 

06 1C 00 01 

IB 

09 00 

OA 

08 00 

05 00 

02 00 
E9 



MOTOR: 



CHKTRK: 



14 00 

06 10 00 80 
F9 



00 02 
18 01 
50 00 

E9 FF 

06 30 00 OF 

F6 

06 10 00 04 
F9 



SECTOR: 
SECLP: 

ONTRACK: 

GETSEC: 

GETSYNC: 



EQU 
EQU 

PUSH 

MOV 

MOV 

MOV 

MOV 

CALL 
LOOP 

TEST 

JNZ 

MOV 

AAM 

MOV 

CALL 

CALL 

JP 

MOV 

TEST 

JZ 

RET 

MOV 
MOV 
MOV 

CALL 
TEST 
JNZ 

TEST 
LOOPZ 



1 

9 

8 

10H 

14H 

1CH 

40H 

2 OH 

DS 

AX.0FEB8H 

DS.AX 

AL,[SEL] 

CX.20 

SECTOR 
MOTOR 

B, [STPOUT], 1 

ONTRACK 

AL,[STP1] 

AL,[STP2] 

SECTOR 
SECTOR 

CHKTRK 

AL,[SEC] 

B,[N0P],80H 
SECLP 



; Reset sector flag. 
; Wait for sector flag. 



DI.LOAD 

CX.280 

BX.RD+NOP 

SECTOR 

B , [ BST+NOP ] , OFH ; Test for sector zero. 

GETSEC 

B,[NOP],4 
GETSYNC 



32 



07C4 


74 


E4 










JZ 


ONTRACK 


07C6 


B9 


00 ' 


01 








MOV 


CX.100H 


07C9 


32 


D2 










XOR 


DL,DL 


07CB 


D5 


OA 










AAD 




07CD 












READ: 






07CD 


8A 07 










MOV 


AL,[BX] 


07CF 


AA 












STOB 




07DO 


32 


DO 










XOR 


DL.AL 


07D2 


DO 


C2 










ROL 


DL 


07D4 


D5 


OA 










AAD 




07D6 


E2 


F5 










LOOP 


READ 


07D8 


8A 


07 










MOV 


AL,[BX] 


07DA 


3A 


C2 










CMP 


AL.DL 


07 DC 


75 


CC 










JNZ 


ONTRACK 


07DE 


IF 












POP 


DS 


07DF 














ENDIF 




07DF 












; Successful read 


07DF 


C7 


06 


B2 


01 


00 00 




MOV 


[CSSAVE],0 


07E5 


C7 


06 


B4 


01 


00 02 




MOV 


[IPSAVE] .LOAD 


07EB 


5F 












POP 


DI 


07EC 


E9 


7B 


FE 








JMP 


GO 


07EF 



















;Uses ES 



Error Count =» 



0777 






0777 






0777 






0777 






0777 






0777 






0777 






0777 






0777 


EB 


09' 


0779 






0779 


E6 


78 


077B 


BO 


32 


07 7D 






07 7D 


FE 


C8 


077F 


75 


FC 


0781 


C3 




0782 






0782 






0782 


BO 


DO 


0784 


E8 


F2 FF 


0787 






0787 


E4 


78 


0789 


DO 


C8 


078B 


72 


FA 


07 8D 


BF 


00 02 


0790 


BO 


OE 


0792 


E8 


E4 FF 


0795 


E4 


7C 


0797 


E4 


78 


0799 


24 


98 


079B 


75 


E5 


079D 


BO 


01 


079F 


E6 


7A 


07A1 


B9 


80 00 


07A4 


BO 


8C 


07A6 


E8 


DO FF 


07A9 






07A9 


E4 


7C 


07AB 


DO 


CO 


07AD 


73 


OB 


07AF 


E4 


7B 


07B1 


AA 




07B2 


E2 


F5 



;Boot for Tarbell disk controllers. Load track 0, 
;sector 1 into LOAD. 



DISK: 



DCOM: 



HOLD: 



RETRY: 



READY: 



READ: 



IF 


TARBELL 




EQU 


78H 




JP 


RETRY 




OUTB 


DISK 




MOV 


AL,50 




DEC 


AL 




JNZ 


HOLD 




RET 






MOV 


AL.ODOH 




CALL 


DCOM 




INB 


DISK 




ROR 


AL 




JC 


READY 




MOV 


DI.LOAD 




MOV 


AL.OEH 


;Home command @ 10ms/ track 


CALL 


DCOM 




INB 


DISK+4 




INB 


DISK 




AND 


AL.98H 




JNZ 


RETRY 




MOV 


AL,1 




OUTB 


DISK+2 




MOV 


CX.80H 




MOV 


AL.8CH 




CALL 


DCOM 




INB 


DISK+4 




ROL 


AL 




JNC 


DONE 




INB 


DISK+3 




STOB 






LOOP 


READ 





33 



07B4 










WSTAT: 






07B4 E4 


7C 










INB 


DISK+4 


07B6 DO 


CO 










ROL 


AL 


07B8 72 


FA 










JC 


WSTAT 


07BA 










DONE: 






07BA E4 


78 










INB 


DISK 


07BC 24 


9C 










AND 


AL.9CH 


07BE 75 


C2 










JNZ 


RETRY 


07CO 










{Successful 


read 


07CO C7 


06 B2 


01 


00 


00 




MOV 


[CSSAVE],0 


07C6 C7 


06 B4 


01 


00 


02 




MOV 


[IPS AVE] .LOAD 


07CC 5F 












POP 


DI 


07CD E9 


9A FE 










JMP 


GO 


07DO 
















Error Count = 
















0777 ;*************************************************** 

0777 

0777 IF OTHER 

0777 

0777 ;User may insert customized disk boot here. All 

0777 {registers are available, stack pointer is valid 

0777 ;and interrupts are enabled. Stqck should be at 

0777 ;same level on fall-through to code below. Last 

0777 ; address available is 07DF hex. 
0777 

0777 ORG 7E0H {Simulate boot of maximum length 

07E0 

07E0 ENDIF 

07E0 

07E0 ;*************************************************** 

07E0 

07E0 {Successful read 

07E0 C7 06 B2 01 00 00 MOV [CSSAVEJ.O 

07E6 C7 06 B4 01 00 02 MOV [IPSAVE] ,LOAD 

07EC 5F POP DI 

07ED E9 7A FE JMP GO 

07F0 

Error Count => 
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